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INTRODUCCION 



Sin lu.9ar a dada al9una tiene Ud. en sus manos el 
libro mas completo de Programas y rutinas escrito 
Para la Commodore 64 en idioma castellano. Las 
numerosas utilidades escritas en lenguaje de 
máquina a través del BñSIC muestran en todo su 
esplendor a esta Poderosa computadora* 



Las aplicaciones Presentadas van desde las ayudas 
Para Programar y tiPear Programas hasta usos 
realmente EEFECTIVOS <iue Justifican aun mas 
Poseer en el ho9ar o en la oficina la 



fi fir de brindarle la máxima seguridad al tiPear 
los *ro9ramas y de Pasar Por el menor numero de 
inconvenientes hemos Preparado instrucciones que 
resumen los errores mas frecuentes y a la vez mas 
catastróficos^ como Por eJemPlo Perder el 
Programa tipeado Por la impaciencia de hacerlo 
correr sin 9rabarlo Previamente. 



Como los programas Presentados corresponden a los 
Puntos claves de la Programación/ Ud, no solo 
aprenderá y se ubicara mejor en el mundo de la 
computación sino que también estara orgulloso de 
Poseer Lñ FRNTRSTICñ C-S4. 



Autores 



FEDERICO ARIAS 
LUIS C. ARIAS 



Hecho el depósito que. ma/tca la (jay 7 1 7 1 3 . P/tohitida 
cualquie/i /iep/ioducci6n total o pa/icial. 
c 7 9 85 . lmp/ie¿o en Ajtge.ntina.Pfiinted in A/ig entina 
l.S.B.N. n/io. 950-9625-00-0. edición de. 7. 000 cy«- 
plaA&¿ .Se terminó de irap/iinti/i el 78/6/ 85 en lo¿ ta 
£$&m¿ gJiá¿ico¿ Dyp.UjtugucLL' 38 3. Bueno* AUe¿, 
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CONSEJOS UTILES PflRR TIPEfiR LOS PRQÜRfiMfiS 

-Utilice las facilidades que brindan los 
Programas que le Permiten a9il izar u cometer 
menos errores, como los comandos inmediatos y el 
mi ni -teclado numérico. 

.Cuando el Programa supera una Pagina NO lo tiPee 
todo en forma consecutiva. Vaya grabándolo, Por 
ejemplo cada 10 minutos. De este modo Prevenimos 
cualquier Perdida accidental o Por corte de 
enere i 4 elecrica. 

•Una vez que termina de Pasar todo el Programa NO 
lo corra corr RUN. Primero 9rabelo Para Prevenir 
un Posible bloqueo debido a errores de tiPeo o 
el auto New de muchos programas basic-assembler. 

•Los errores mas comunes en el traspaso de 
listados se Produce Por confundir un símbolo Por 
otro. Ejemplos de esto es colocar una letra 0 
Por un cero una letra I Por el numero 1, la 
letra 3 Por el si9no la letra B Por el numero 
8, etc. 
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RECUPERANDO PROGRAMAR 

Muchas, veces un Programa se- borra Por error o 
concientemente y luego tíos arrepentimos y 
Queremos recuperarlo. Para ello sihve este 
Programa. • ^ 

™ r '^!, el p ^rama, córralo cor, RUN; lue9o tiPee 
■:-T.;.',*v.tf; y el Programa Perdido sp Podrí li«tar y 
grabar normalmente. tar J 



1S0 REH RECUPERANDO PPnnpflMflS 

lid FOR A=833 TÜ 933 

126 REflH E:POKE A, B : G-C+B : HEXT 

138 IF COI 1380 THEN PRINT"EXISTE UN 

ERROR EN LAS LINEAS DE DATA": STOP 

140 ENE 

200 DATA 35,78,78,69,87,32,83,89 
210 DATA 83,40,56,53,48,41,32,32 
220 DATA 32,160,3,200,177,43,2Pi8,2Sl 
23tí DATA 200, 152,24, 101,43, 160, 255, _ 2Ññ 
¿40 DATH 145,43,133,45,200,165,44,14^ 
250 DATA 43,133,46,160,255,200,177,45 
26© DHTA 72,240,11,260,177,45,133,46 
!oS ÍES 104 ' 133,45,24, 144,237,200, 177 
SS £215 í 5 ' 243, 104,24, 165,45, 105 
299 DATA 2,133,45,144,2,230,46,133 
388 BATA 47,133,49,165,46,133,48,133 
310 DHTH 50, 169,0., 133,51, 133,52, 165 
320 DATH 55,133,53,165,56,133,54,76 
338 EATA 116,196 



2 



La Fantástica. C.64 



COMANDOS INMEDIATOS 

Este programa Permite usar cualquiera de las 
letras en combinación con las teclas SHIFT o 

Coromodore Para Poner instantáneamente uri comando 

1BSIC en p anta lia. Esto P erm i te un ahorro 
considerable de tiempo y se cometen menos errores 
de tiPeo. 



LISTA DE COMANDOS 





SHIFT 


Commodor» 3 


R 

n 


PPIHT 

r im n i 


PRIHT* 

1 l \ 1 11 1 TT 


o 


RNB 


ÜR 


r 




ASC 


n 


pFjRD 


DñTfl 




GET 


END 

1^1 iJL 1 




FGR 


NEXT 

1 lu 1 1 




OOSUE 


RETURN 

1 S U 1 'pj 1 '■ 1 1 


H 

* i 


TO 


STEP 


T 
x 


INPUT 


INPUT* 

1 1 11 W 1 TT 


j 


GOTO 


ON 


K 


DIM 


RESTORE 


L 


LORD 


SfiVE 


M 


MID$ 


LEN 


N 


INT 


RND 


0 


OPEN 


GLOSE 


P 


POKR 


PEEK 


Q 


TñEC 


SPC< 


R 


RIGHT* 


LEFT$ 


S 


3TR$ 


VRL 


T 


IF 


THEN 


U 


TftN 


SQR 


V 


VERIFV 


CMD 


w 


DEF 


FN 


X 


LIST 


FRE 


V 


3IH 


eos 


2 


RUH 


SVS 
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S¿ T 3?*g am I £ **<=ríbir PRINT en Pantalla hacernos 
i , I escribir DñTfi Presionamos la tecla 

ael LoQotiPo de Commodore y la letra D. 
El Programa se activa o desactiva con el SVS dadn 
en Pantalla. 



148 IF PEEKÍPEEK<56)*256;>O120THEN 
P0KE56 , PEEK C 56 > - 1 : CLR 

150 H I «PEEK < 56 >:ERSE=H 1*256 

160 PRINT" [ el r] PACIENCIA..." 

170 FOR AD«0 TO 211 :REAH BV 

1S0 POKE BñSE+RD , EV : NEXT RD 

210 PÜKE BRSE+26,HI: POKE BRSE+8Í/HI 

¿20 POKE BRSE+123,HI: PÜKE EASE+133,HI 

231 XF PEEK C 65532 > =34 GOTO 240 

232 POKE BfiSE+9,72: FÜKE EASE+48,194 

233 POKE ERSE+52,235: POKE BASE+92, lfiR 

234 POKE BRSE+154,72-- POKE ERSE+157,224 
¿35 POKE BASE+158,234 

240 PRINT" CclrJ * COMANDOS VELOCES *" 
250 PRINT"SI/NO ¡ SVSR";BRSE 
260 END 

270 BfiTR 120,173,143,2,201,32 
280 DRTR 203,12,169,220,141,143 
290 DRTR 2,169,235,141,144,2 
300 DRTR83,96, 169,32, 141, 143 
316 DRTR2, 169,0, 141, 144,2 
320 DRTR88, 96, 165, 212, 283. 117 
330 DRTR 173, 141 , 2, 201 , 3, 176 
340 DATA 1 10, 201 , 0, 240 . 106, 169 
350 DRTR 159, 133, 245, 169, 236, 133 
360 DRTR246, 165, 215, 201 , 193, 144 
370 DRTR95, 201, 219, 176,91,56 
380 DRTR233, 193, 174, 141,2,224 
390 DRTfi2,208,3,24,105,26 
400 DRTR179, 189, 159,G, 162,0 
410 DRTR134,Í98, 170, 160, Í5@, 132 
420 DRTR34 , 1 60 , 1 92 , i 32 , 35 . 1 68 
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430 DhTRü .18, 248 , 16, 202 , 1 6 
448 IiflTñ 1 2 , 230 , 34 , 288 , 2 , 238 
458 BRTR35 , 1 77 , 34 , 1 6 , 246 , 48 
468 DñTR24 í , 288 ..177, 34 , 48, 17 
478 BRTfití, 142,211,0,230, 198 
488 DRTR 166, 198, 157, 113,2, 174 
498 BRTR21 1 ,8, 40, 208, 234, 238 
580 DRTR 198, 166, 198 , 41, 127, 157 
510 BRTfilÍ3,2,238, 198, 169,28 
528 DRTR 1 4 1 , 1 1 3 , 2 , 76 , 228 , 235 
530 DRTR76,67,236 
578 DRTR 153, 175,199,135,161,129 
588 DRTR 1 4 1 , 1 64 , 1 33 , 1 37 , 1 34 , 1 47 
538 DRTR282,131, 159,151,163,281 
600 DRTR 196, 139, 192, 143, 15ü, 155 
610 DRTR 131 i 138 

658 DRTR 1 52 , 1 76 , 1 98 ,131,1 28 , 1 38 

668 DhTR'142, 196, 132, 145, 148, 148 

670 DRTR 195, 187, 168,194, 166,200 

688 DRTR 197,1 67 , 1 86 , 1 57 , 1 65 , 1 84 

690 DRTR 138, 158,8 

738 FORRD=0TO158:RERD EV 

748 SUMR=SUriñ+EV : NEXTRD 

758 I FSUrtRO20347THENPR I NT " ERROR ! 



5 



La Fantástica C.64 



MIHI TECLADO NUMERICO 

Las computadoras Profesionales e incluso la 
í?5¡3™?C^ la8 p «een aparta del teclado " normal 
\ uwhNi.y un mini teclado numérico que facilita 
el ingreso de cifras. La utilidad de ese 
mi ni teclado es inmensa tanto en Programación como 
en los Pro9ramas comerciales. Una vez corrido ron 
RUN es Posible adoptar, 'se9un la necesidad 
momentánea, el teclado normal o el rpdefinido 
Presionando CTRL H Para Pasar de uño 3 otro. 
Las ..teclas q ue se redef i nen y su Mbva 

\*¥4t 1 ta;. □ ce). Los números 7, 8 a 9 romo *l 
resto del teclado no varían. 

También es Posible activar y desactivar el 
mi ni teclado desde un Programa con PÜKE 5021$/ 255 
y, PÜKE " 582 i 6 , 0 resP ect i vamente. 



10 PR I NT " [ c l r 3 AGUARDE APROX I MRB AMENTE 1 
MINUTO" 

29 FOR 1=50176 TO 50261= RERE X : POKE 1>'A 

30 NEXT 

49 POR 1=40960 TO 49151 : POKE I, PEEKU): 
NEXT 

50 FOR I =57344 TO 65535 : POKE I , PEEK C 1 5 ¡ 
NEXT 

60 PR I NT " PRES I QNRNDO CCTRL Hl SE PRSR BE 
TECLADO NORMAL fi TECLADO REDEF I NIDO" 
70 PRINT"0 VICEVERSA" 

30 PÜKE58S23, 76 = PÜKE58824, 0 : PQKE58R25, 



90 F0KE585S6, 169 : FQKE535S7, 1 : PQKE58588, 
234 

130 FOR 1=44829 TO 44034 : POKE I , 234 : NEXT 
110 PGKE1,53 

500 DñTA 201, 14,248,65,44,40, 196,248, 28 
,201,85,248,40,201 
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51» DfiTfl 73,248, 40,201,79 .24^.40,281, 74 
1^16,201,75,240 



DfiTfl 16,291,76,240, 16,201,77,249,23 
J? 14,96,0,169 

538 DfiTfl 49,208,243,169,50,283,244,169 

51,208,240,169,52,293 
=-> BñTñ 236, 169, 53, 283, 232, 169, 54, 298 
_223, 169,48,208,224,169 
556 DfiTfl 255,77,49,196,141,40,196,88 
*1S5, 198, 240, 252, 120, 7S 
568 DfiTfl 189,229 



Si Ud. desea tener estos programas o algunos de 
ellos en cassette o disket, puede solicitarlos a 
sjs autores, al telefono 



43-3103 
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£ORBI GIENHQ PRüGRflMñS 

Los Procesadores de Palabra tienen general mente 
la cualidad de encontrar una palabra o carácter 
con lo que facilitan la corree ion del texto. 
Esta rutina Permite encontrar la linea o lineas 
del Programa en que aparezca la Palabra buscada. 
Un ejemplo común de su uso es cuando al correr un 
Programa vemos en Pantalla un error- "Ingrese su 
nombe". Para encontrar la linea en donde se 
encuentra ese error tiPo9rafico Procedemos asi : 

1) Careamos el utilitario y lo corremos con RUN 

2) Ingresamos el Programa, a corregir. 

3) Antes de la Primer linea del Programa Ponemos 
1 "nombre" 

SVS 49152 

fiParece entonces e n p anta lia el n um e r o d e 1 a 
linea (o de las lineas) en que se halla el 
alfanumerico que Pusimos entre comillas en la 
linea 1. Esta linea 1 debe ser borrada antes de 
Quardar el Programa corregido. 

18 FQRI*49152T049255 : RERDJ ¡ K=K+J : 
PÜKEI, J:NEXT 

28 I FKO 1 6382THENPR I NT " ERROR EN DBTR" • 
STOP 

30 PRIHT"Cclr 337545152 PflRR BUSCAR" 

lOO tmm&Bt l* 133/251/ 1 69/8/ 133.252, 168 

/O/ 177, 251/ 56. 229; 251, 56 

118 DRTR233/5/141/ 104/ 192.. 233,2, 141, 105 

, 192/ 168,0, 177,251, 170,200 

120 BñTfil77, 251, 248, 67, 133,252, 134,251, 

168/8, 177/251,56,229,251/170 

138 DRTR202, 134,2/ 198,2/ 165,2/205, 104/ 

192,48,222, 133,253, 173, 185 

1 40 DRTfi 192/ 1 33 , 254 , 1 64 , 253 ..177,251/164 

i 254/217,5, 8,208.229, 198/ 253 

1 58 DRTR 1 98 , 254 , 208 , 239 , 168/ 2 > 1 77, 251 / 

178,200, 177,251,32,285/ 189, 169 

160 DRTR32, 32, 218, 255, 76, 26, 192,96 
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•e--'hndq programa s 

-- . en dos tipos de variables : s i roP les y 
•lectores. A su vez Pueden ser numéricas de Punto 
- : tan te , enteras o alf anumericas. Es importante 
-c"? la comprensión de un programa documentar el 
_s: cada variable. El Programador ori9inal 
• . ?de entonces ^retomar con facilidad el hilo de 
K Pro9ramación y el 4ue lo estudia Puede 
^Hender el flujo del Pro9rama. 
I s-rese este Programa y córralo con RUH. Haga lo 
■:spk> con el Programa a documentar. Quiébrelo con 
fcJN/STOP y luego debe dar el SVS 48794 . Las 
- :ables se listaran horizontal mente en 
pwntalla. 



pee rem MMMmmmmMmmmwMmM 
::e rem * documentando programas * 

l£¿ REM ****************************** 
136 PA=6 

140 P0KE56,PEEKC56>-1 

156 FOR 1=40764 TG40944 : READ A : POKE 

I,fl:Pfl=PA+A:NEXT 

166 IF PAO33670 THEN PRINT "EXISTE UN 
ERROR EN DATA" : END 

:~3 PRINT "SVS 46764 PRRñ COMENZAR" ; NEW 
186 DATA 165.45,197,47/246,93/133 
156 DATA 253, 165.46. 133.-254, 166,6 
260 DATA 165/0, 141,61,3, 177.253 
210 DATA 41,128,203,60,177,253,41 
226 DRTA 127,32,210,255,208,173,61 

• DATA 3,261,0,208,6,177,253 
240 DATA 41,128.268,46,177,253,41 
256 DATA 127,32,216,255,173,61,3 
268 DATA 32, 210, ¿55. 169.32,32.218 
278 DATA 255/152,24,105,6.144.5 
280 DATA 164,254,206,132,254,168,101 
290 DATA 253,197/47,240,17.268,186 
360 DATA 96,169,37,141,61,3,208 
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310 DñTfl 183,163,36.141,61,3,268 
32Ú DfiTñ 203,165,43,137,47,240,114 
330 DflTfi 165,47,133,253,165,43,133 
340 DfiTfi 254,160,0,163,0,141,61 
358 DfiTfi 3,177,253,240,216,41,128 
360 DfiTfi 208,77,177,253,41,127,32 
370 DfiTfi 210,255,200,173,61,3,201 
380 DfiTfi 0,208,6,177,253,41,128 
330 DfiTfi 208,63,177,253,41,127,32 
400 DñTfl 210,255,173,61,3,32,210 
410 DfiTfi 255,163,40,32,219,255,163 
420 DfiTñ 41 ,.32, 210, 255, 163,32,32 

439 DfiTfl 210,255,206,177,253,24,101 

440 DñTfi -253,137,43,240,33,177,253 
450 DfiTñ 24,191,253,170,200,177,253 
460 DfiTñ 101,254,133,254,134,253,208 
470 DflTfi 165,36,163,37,141,61,3 

480 DfiTñ 208,172,163,36,141,61,3 
430 DfiTñ 208,186,165,48,137,50,208 
580 DfiTfi 136,36,200,234,177,253.1^1 
510 DftTñ 254.137,50,240,224,16,222 
520 DñTfi 136,208,202 
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^"ES En EñSIC 

"'5Í.5.1-- con sprites en el basic de la Commodore 
t- es en extremo arduo. Es necesario hacer uso de 
PGKE repetidamente a tos registros de la Posición 
s&: sPrit*. Para ahorrarse este traba Jo se Puede 
usar la rutina que utilizamos a continuación: 



ai sección Uso 



58432 Posibilita mover sPrites 

58433 sPrite QJ mov. horizontal 

38434 sPrite @J mov. vertical 

50435 sprite i i mov. horizontal 

58* .lo sPrite U mov. vertical 
■ ii 

58447 sPrite 7; mov. horizontal 

- : : sPrite 7¿ mov. vertical 

586SS modifica el movimiento 



138 REM ******************** 
-l-j REM * SPRITES EN BfiSIC * 
128 R£H ******************** 

■ FOR L=59830 TO 51116 =REftD FMPÜKE 
_ R NEXT 

148 BñTfi 163,255,45,9,138,249,16,163,0, 
1*3 !■ 133,162,21, 133,9 

158 DfiTft 137,157,0,138,202,208,247,162. 
. .53,1,141,80,137,17:3,80 
168 DfiTR 137,45,0,137,240,3,76,243,138, 
232, 232, 1 4 , 80 , 1 97 , 208 , 238 
i DfiTft 76,43,234 

7 163, 9 ,23,9,137, 208 , 3 , 76 ,37,1 99 
. . I¿b ¿ b 1 

138 DfiTft 8,137,240,48,254,0,133,200.40, 
212 255 207,76,144,133,89 
3*8 DRTñ 137,45,16,293,208,12,173,16, 
r>£ : : 58, 197, 141 , 16, 298, 76 
. : j^Tfl 43, 133, 173, 16,208,77,68, 137, 
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141,16,268,189,0, 197, 157,(3 

228 BfiTfi 198,76,97,199,222,6,198,208,40 

, 254 , 255 , 207 , 288 , 29 , 1 73 , 80 

230 DfiTñ 197,45,16,208,288,12,173,16, 

208, 13,80.. 197, 141, 16,288,76 

240 DñTñ 91,199,173,16,208,77,86,197, 

141, 16,208, 189,6, 197, 157,0 

250 DfiTñ 

198, 169,0,232,29,0,197,208,3,76, 140, 199. 1 
69, 128,61,0 

260 DRTñ 197,240,11,254,0,198,208,20, 

222,255,207,76,134, 199,222,0 

£78 DfiTR 198,208,9,254,255,207,189,0, 

197, 157,0, 198,202,76,233, 198 

280 DñTñ 169,255,221,255,287,240,3,76, 

43, 199, 173, 60, 197,76, 17, 199 

290 DñTñ 120,169,192,141,28,3,169,198, 

141,21,3,88,96 

318 8=50433 :PRINT"Eclr 3 " :H=247:V=1 

320 FOR L=*S TO S+16 STEP2 

330 PQKE L,H:POKE L+l/V 

340 H=H+l¡V*V+l:NEXT 

358 POKE 50688 , FF 

360 FOR L=2040 TO 2047 

370 POKE L,14=NEXT 

380 FOR L-896 TO 959 

390 POKE L,255:NEXT 

400 8=1 

410 FOR L*53287 TO 53294 
42© POKE L,S: 8=8+1 'NEXT 
430 POKE 53281,0 
440 S=5=ñ=10 

450 FOR L=53248 TO 53263 STEP 2 

460 POKE L,S+48:F0KE L+l,fi+48 

470 S=S+25 ñafl+25 : NEXT 

488 POKE 53269,255 

498 POKE 50432,255 

508 SVS 51104 

510 GOTO 510 
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•En los PRIHT e INPUT Ud- hallará expresiones 
encerradas entre corchetes- Significa que debe 
efectuarse lo que indican y NO copiarse* 
literal mente - 

EJetnPlos- [ctrl 13 Presione las teclas CTPX y 
[IB espacios] Presione 1@ veces la 
barra esPaciadora- 

Ten9a en cuenta la siguiente lista- 



Expresión 


Udi i iPea 


uci i ve 








Eclr j 


SnlT t, C Lr'rnOrrie 




Choroe3 


clr/home 




C arriba.] 


shift Icrsr l 


C 




Icrsr 1 


Q 


Ciz^. 3 


shift -crsr- 


1 


Cder.3 


-crsr- 


3 


Cctrl 91 


ctrl S 


R 


Cctrl 0] 


ctrl e 




[ctrl 13 


ctrl 1 


i 


Cctrl 2] 


ctrl 2 


E 


Cctrl 33 


ctrl 3 




Cctrl 43 


ctrl 4 




Cctrl 53 


ctrl 5 


1 


Cctrl 63 


ctrl 6 


t 


Cctrl 73 


ctrl ? 




Cctrl B3 


ctrl 8 


tr 
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TRACE 



El EASIC residente en memoria ROM adolere de la 
a iíl^ e íJ ert0S comandos útiles como son NUHEER 
a TRHLE. El comando TRACE es muy importante Para 
detectar errores en un Programa a a que nos 
Permite seguir la ejecución del Pro9r3ma Mam * 
linea. ' "" " 

Cuando ejecutemos un Pro9rama con TRACE activado, 
el numero de cada linea ejecutada sera mostrado 
en Pantalla. Esto le Permitirá a Ud. observar el 
camino se9uido.Por su Pro9rama. 
Esta información Puede ayudarlo a ahorrar un 9ran 
esfuerzo en ■ la ubicación de errores l 09 i ros, 
causados Por el incorrecto flujo del Programa. En 
BHSIC esos Problemas Pueden ser causados Por 
equivocados números de linea en un GOTO o en un 
ijQüUB. También Puede ser una incorrecta variable 

0 en un test condicional IF. 

Con TRACE Ud. Puede determinar el Punto inicial 
en el que el Programa comienza a comportarse 

1 ncor rectamente . 

Este Programa en BASIC cargará una rutina m 
lenguaje de maquina que nos Permitirá hacer uso 
del TRACE cuando la necesitemos sin af*rtar »\ 
Programa que estudiamos. 

Cuando el Programa sea corrí do , la rutina TRACE 
es Pokeada en alta memoria, de manera que lu*9o 
al cargar el Programa que queremos examinar U 
rutina ,.o sea borrada. En consecuencia carSue su 
Programa en forma normal. 

Utilizando TRACE : 

Una vez cargado TRACE; sera activado mediante m 
comando SYS el cual activara la rutina. También 
Podremos desactivarlo mediante un SVS. Recordados 
que br 1 :? es siempre seguido de una dirección que 

m 
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i~z. Z3 doride el Programa ML esta alojado. 
¡Con SYS también desactivaremos TRñCE. 
E. trazado Producido Por la ratina consiste de 
mai serie de números de lineas del Programa* 
separado Por espacios. Cualquier impresión 
_ zi2?. Pr.r el Programa Quedará intercalada con 
los nttweros de linea. 

Mu característica Poco usual de este TRACE es 
«re lastrara el resultado de cada sentencia IF 
- t : ~ada. Este resultado sera indicado mediante 
la inores ion de una T (True- verdadero) y una F 
r Ise^falso). 
fcuentemente es muy importante saber si la 
~ve condicional de una sentencia fue e-iecutada; 
€5'.? rz-erística le brinda a Ud. un camino 
- zi\ Para verificar 9ue el Pro9rama está 
- z al izando las decisiones correctamente. 

E» cualquier momento Ud, Puede Presionar la tecla 
HDP cuando el ProBrama este corriendo^ lue9o 
^eisunir^ la ejecución con el comando COHT. Esto 
le Permitirá a Ud. detener el scrollin9 Para 
€ - ectuar ver i f i cae i ones . Otra Posibili dad es 
—locar en Puntos claves del Pro9rama STOPs con 
. r r . f i n . Tamb i en es ut i l act i var e l TRñCE so l o 
em las Partes donde se sospecha lúe Puedan 
e^:s*:r errores. 

_i -unción TRñCE no le resolverá todos los 
Problemas derivados de errores lógicos o de 
*ro9ra**acion¿ Pero simplifica el estudio de un 
listado impreso o de Pantalla. 

Cardando el TRACE = 



fletes de correr el Programa no olvide guardarlo 
Previamente. Para activar el TRñCE utilice SVS 
467:1 Para desactivarlo SVS 40736. 
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i rem #*>**MmMmmmmMmmmw*¡m 

d REM * RUTINA TRACE * 

3 rem MMw.mmmmmmmmwmmmw 

18 LM-PEEK(55>+PEEKC56>*25fi-24fi 
15 HI = INT(UV25£> : Li>LM-H 1*256 " 
20 P0KE55 , LO : P0KE56 , HI : CLR 
25 TRACE=PEEK € 55 > +PEEK í 56 > #2^6 
30 A- TRACE 

40PRINT:pRIHT"CARGANDO LA RUTINA TRACE 
en H 

50 FORD=1TO201 = RERBN : CS*CS+N 
60 I FN>=0THENPOKEfi , M : GOTOS0 

HI#¿5b ■ POKER, LO : A=A+1 : POKER. HI 

90 HI«INT<CTRACE+3?>/256;-Li>TRACE437- 
H 1*256 : POKETRACE+5, LO : POKETRfiCE+9 , HI 
1 08 I FCSOl 1 307THENPR I NT " ERROR EN ' 
DATA" : STOP 

110 PRINT : PRI NT "TRACE LISTO. " ■ PRINT 
J2@ PRINT" SVS"TRACE"= TRACE ACTIVADO" 
130 PRINT" SV8"TRACE+24' i ~ TRAPE 
DESACTIVADO" 
148 END 

500 DATA 1 69 , 76 , 1 33 , 1 24 , 1 69 ,3,1 33 > i 25 , 

Sí ?SJ? 126 ' 169 14 ^™245, 141,-246, 141 
f 33 mjh ~ z47 > 3e * 1 69 ' 20 i ' 1 33 , 1 24 , 1 69 , 53 , 

503 DATR125, 169, 176, 133, 126,96,201,32, 

504 DRTA3 ,76 , 1 1 5 , 0 , 72 , 1 73 , -247 > 240 , 3 1 i 

^BATA-247 ' 20 1 '' 1 S? ' 248 ' 24 J 1 69 ' 0 J 1 4 1 ' 
506 ' DATA32 , ~2 1 1 , 20S , 4 , 1 69 , 84 , 208 ,2,169, 

W P? Tñ32 ^10,255,169,32,32,210,255, 

3el, -cíl 1 
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i B6TH248, 189, 165,5?, 141,-243, 141, 
165 

DñTfiSS, 141,-244, 141. -~246, 201,250, 

BfiTfiS9, 169,8, 141,-239, 141,-240, 

. BÑTñl41..-242, 142,-238, 162, 15, 14, 

' . _ I HT1Í46 , -244 , 1 28 , 248 , 1 73 , -239 , 1 89 , 

■3 DRTR141, -239 , 1 73 , -248 , 1 89 , -248 , 
.-.--248 

Z RTfil 73, -241, 189,-241, 141 /-241, 
21-' ¿5.. 282 

-HTFílb, 216, 162,2, 189,-239,72,74,74 
■t DfiTR74 , 74 , 32 , -224 , 1 04 , 4 1 , 1 5 , 32 , 

í.~ 2-"-I¿,236, 169,32,32,210,255, 174, 

f. : IRTñl 84, 281, 167,288,3, 141,-247, 

BRTR176, 3, 76, 132,8,96, 165,57,265, 

. . :*Tfi28S,5,165,58,205,-246,56,205, 

:_; DRTfil, 96, 9, 48, 141,-242,76,218,255 
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PRDENñM I EHTO I NSTflNTflNEO 

Una de las rutinas que no Pueden faltar en U 
colección de un Programador es acuella que 
Permita u alfabetización o el ordenamiento 
numérico de una cantidad importante de elementos 
alfanumericos. Su uso es Prácticamente obligad" 
en los Programas de aplicaciones, tanto de uso 
Particular como comercial, ya que el ordenamiento 
brinda gran flexibilidad y claridad al mane Jo del 
Programa. 

La siguiente rutina en lenguaje de maquina, 
accesible desde un Programa en basic, efertúa un 
ordenamiento de 1QQ0 elementos en forma casi 
instantánea <solo 2 segundos!?. Tener en cuenta 
1 a 1 i nea 30@ , y a q ue es l a q ue p s sa la 
información. 



16 1=49152 :SUM=y 

20 REF1D fl:lF ñ-256 THEN 49 

30 SUM=SUM+fl : POKE I > ñ : 1=1+1 : GOTO 20 

40 IF SUM045295 THEN PRI NT "ERROR EN 

DñTflS" ! END 

100 PRINT"Cclr]" 

110 N=1000 

120 DIM Hfl$CN> 

130 PRI NT "CREANDO " N " STRINGS ñL AZAR" 

146 SD*-TI:fl»RND(SD> 

150 FOR 1-1 TO N 

160 PRI NT I "¿arriba]" 

170 NÍ=INT<RND<1>*10+1) 

180 Rí="" 

190 FOR J=l TO NI 

200 B$=CHR$< INT(RND< 1 >*26+65) ) 

210 fl$=ñ$+B$ 

220 NEXT J 

230 flRí<D=ñ$ 

240 NEXT I 

250 PRI NT "TOQUE UNñ TECLA PñRñ ORDENAR" 
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260 GET fl*=IF A*="" THEN 260 
273 PRINT "ORDENANDO..." 
23Ü TI «TI 

306 SVS 49152, N,AA$ Oí) 

310 T2=TI 

320 PRINT "LISTO" 

330 PRINT "TOQUE UNfi TECLñ PARA MOSTRAR 
LA LISTA ORDENADA" 
346 GET ft*¡IF A$*"" THEN 340 
35© FOR 1 = 1 TO N¡ PRINT 1 , AHS 'L I ') ' NEXT 
360 PRINT : PRINT N" ELEMENTOS ORDENADOS 
EN" CT2-T 1 ) /6Z " SEGUNDOS " 
49152 DATA 32,253,174,32,153.173 
49 158 DATA 32,247,183,165,20,133 
49164 DATA 253,165,21,133,254,32 
49170 DATA 253,174,32,158,173,162 
49176 DATA 1,165,71,157,85,193 
49182 DATA 157,125,193,165,72,157 
49188 DATA 105,193,157,145,193,165 
49194 DATA 253,208,2,198,254,198 
4920O DATA 253,160,3,24,189,125 
49286 DATA 193,101,253,157,125,193 
49212 DATA 189,145.193,101,254,157 
49218 DATA 145,193,136,208,236,139 
49224 DATA 85,193,133,80,189,105 
49230 DATA 193,133,81,189,125,193 
49236 DATA 133,32,189,145,193,133 
49242 DATA 83,32,21,193,144,4 
49248 DATA 202,208,228,96,165,82 
49254 DATA 133,78,165,83,133,79 
49260 DATA 160,2,177,78,153,250 
49266 DATA 0,136,16,248,48,11 
49272 DATA 24,165,80,105,3,133 
49278 DATA 80,144,2,230,81,160 
49284 DATA 2,177,80,153,247,0 
49290 DATA 136,16,248,32,32,193 
49296 DATA 1 44 , 230 , 56 , 1 65 , 82 , 233 
49302 DATA 3,133,82,176,2,198 
49308 DATA 83,32,21,193,176,31 
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49314 DñTfl 160,2,177,82,153,247 

43323 DflTfl 9,136,16,248,32,32 

43326 DñTñ 133,176,225,160,2,177 

43332 DflTfl 30,145,82,185,247,0 

43338 DflTfl 145,30,136,16,244,48 

49344 DñTfl 133,160,2,177,80,145 

43359 DflTfl 73,135,258,0,145,80 

43356 DflTfl 136,16,244,24,189,85 

49362 DflTfl 133,125,125,133,133,82 

49363 DñTfl 189,105,193,125,145,133 
49374 DñTfl 133,33,102,83,102,82 
43380 DflTfl 32,21,133,176,22,133 
49386 DñTfl 85,193,157,86,133,189 
43392 DflTfl 105,133,157,196,193,32 
43338 DflTfl 53,133,232,32,69,133 
43404 DñTñ 76,71,192,189,125,193 
49410 DñTñ 157, 126, 133, 189, 145, 193 
43416 DñTfl 157,146,133,32,63,193 
43422 DñTñ 232,32,53,193,76,71 
43428 DflTfl 192,165,81,137,33,208 
49434 DflTfl 4,165,80,137,82,96 
49440 DñTñ 160,255,200,196,247,176 
49446 DñTñ 11, 136, 258, 176, 6, 177 
43452 DñTfl 248,203,251,240,241,36 
43458 DflTfl 196,259,96,24,165,88 
49464 DñTñ 185,3,157,85,193,165 
49470 DñTfl 81,185,0,157,105,133 
49476 DñTñ 96,56,165,88,233,3 
49482 DñTñ 157,125,193,165,81,233 
49438 DñTfl 8,157,145,193,96,256 
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"I ---3 FUNCION 

feoos se- p rejuntan corno hacer uso de estas 
_ ~ z I as . Es importante saber «lúe respon d e n a 
Krts RSCII. Las funciones Fl, F3, F5 y F7 
---■stuen los valores 133 a 136 y las funciones F2j 
-6 y F8 los valores 137 a 148. El siguiente 
#ro9r ama i lustra con v en i en temen te su aplicación. 



i^ta misión apolq que llego r la 

BfiTfi 13, 11, 12, 13 

: EfiTñ 2 

Ka DfiTfi CANTIDAD DE TECLAS DE LR C64 

: I ATA 55,53,66,72 
259 BfiTñ 3 

BATA SRNTñ ROSA ES LR CAPITAL DE 
."I IRTft SRH LUIS, SAN JüfiN, FORMOSA, LR 
= - 

SS8 BATA 4 

2B£ REfili Q*UFQ*="*"THEN ENE 

:* print q*; 

: 3 REFtD A* : PRIHT "Fl - " ; fl* 
• E-J A$ : PRIHT "F3 - " i fl* 
.- : RERIl ñ$ : PRIHT "F5 - " ; fl* 
233 RERD fl$: PRIHT "F7 - ";R* 
. -1 PRINT "SU RESPUESTA? " ; 
RERD fl 

MB GET X*:IF X*-""GOTO 280 

ÍC=fl3CCK*> 
380 IF XÍ133 OR X>13b GOTO 2S0 

X=X- 1 32 : PR I HT "F" ; X*2- 1 
■I IF X=A THEH PRINT "CORRECTO! " ¡GOTO 
M 

338 PRINT "UAL! " 
I- GOTu 20ü 
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ARCHIVOS EN CASSETTE 

Almacenar datos en archivos- es primordial cuando 
se desea avanzar en aplicaciones serias. La 
ventaja que Presentan los archivos es que se 
Pueden actualizar desde teclado sin modificar el 
Pro9rama. 

Los P ro9ramas s i 9u i entes e j emP 1 i f i can la 
escritura de u.n archivo y su lectura. 
Los números que si9uen a una sentencia OFEH 
s i 9n i f i can resP ect i vamente : é 1 nr o . de cana 1 
(Puede ser cualquier nro. de 1 a 127) , el nro. de 
aparato al que se diri9e la información 
( Datasette 1 1 1 V i deo : 3 > I mp resora : 4 * Br i ye de 
discos : 8) ; la dirección secundaria (Escribir 1 1/ 
Leer ¡ 0 ) . 

Es aconsejable Para facilitar la lectura de un 
archivo colocar al Principio el nro. de registros 
o bien "marcar" el fin del archivo (Como en los 
ejemplos en que se usa "-!">. 

Si se desea usar una unidad de discos hay que 
cambiar el se9undo numero en los OFEH de i a 8. 



100 REM * ARCHIVOS ESCRITOS * 

110 REM * DESDE EL TECLADO * 

120 IHPUT"CclrK5 aba jo] NRO. DE ITEMS EN 

EL ARCHIVO" ; N : BIH W$(H+1) 

130 I HPUT " i aba Jo] HOMBRE DEL 

ARCH I VO " ; NOMí : I F NOMÍ = " + 1 " THEH END 

140 FRINT" INGRESE CADA ITEM": OFEH 

1,1,1.. NOMÍ 

150 FOR X=0 TO 

N:INPUTW*<X) :PRINT#l.fW*<X> : IF 

W*<X)0"-1" THEH HEXT 

160 GLOSE 1 : FOR X-0 TO H 

PR I NT US ( X ) : HEXT ; PR I NT " TOQUE UNA TECLA " 

170 GETñ*: IFA$=""THEH 170 

180 GOTO 100 

130 END 
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- - - 1 óe correr el Pro 9 rama lector de- archivos 
-.z.í re-bobinar el cassette hasta el Panto de 
- z : . 



3K REM * LECTOR DE ARCHIVOS * 

■ INPUT"LclrHS aba Jo 3 HOMBRE BEL 

Kvci h leer";nqm* 

Hf NQM*="+1"THEN END 
K OPEN 1,1,8, NDM* ; N=0 : DI MUÍ (16) 
INPUT#1,W*<N) : N=N+1 

■.:n-i>= ,i -i"then 4ie 

■ GOTO 340 

■ CL0SE1 =F0R X-0 
*0*-l > : PRINTWÍ'ÍX) : NEXT 
» PRINT" TOQUE UHR TECLA " 
36* GETftí : I Fñ$= 11 " THEN 398 

mt run 380 
4tt END 



23 



La. Fantástica C.64 



PROTECCION DE PROGRAMAS EH CASSETTE 

marido un ProQrama de cassette es in9resado con 

LORD* o 9r abado con 3 A VE la sección de memoria 

usada es la que va de ta dirección 828 a 1813 

(ver MaPa de Memoria en capitulo 7>. 

El nombre del Pro9rama se 9uarda a Partir de la 

dirección 833 y el resto se rellena con espacios. 

Cuando la C64 encuentra un Programa durante un 

LOAD* la Pantalla muestra solo los Primeros 16 

caracteres del nombre. Esta Propiedad Puede 

usarse Para Prevenir reproducciones. 

(1) Grabando con caracteres ocultos 1 al 9r abar- 
cón un nombre de mas de 16 caracteres ; si 
chequeamos . uno o mas de los caracteres que no se 
muestran en Pantalla Podemos bloquear el Programa 
si no corresponden al nombre correcto. 
E JemP lo 

a) 9 r abamos el programa con 17 caracteres. 
SflVE 1 ' NOMBRE CIO esPacios]fi H 

b) incluimos la si9uiente subrutina a la 
q ue v amos al Principio del ? r o9r a ma c o n GOSU E 
10000: 

imm A^PEEKk 333+16) : IF CHRt<A>^ í 'i H 
THEN RETURH 

101O0 SV3 833 
Cuando alguien intente hacer una copia usara 
NUMERE u otro y entonces la subrutina de la linea 
18680 bloqueara el Programa. 



24 



Lk Fantástica C.64 



L¿-.e excelente programa simula un completo Panel 

-r.trol de u.ri s i nt atizador. 
£ ----lado se transforma en un doble Piano, ^ue 
« «ueiv?. en pantalla Junto cor, el astado de los 
-» ---itos d* sonido ,: iue se están creando 

do los dos teclados, se muestra en 
*Y~ la una fila indicadora (arriba) y una 
--Pcion de la actividad de las teclas 

: Permiten ¿ubi;- y bajar el volumen 

-W-¿z-\ ■■ .? mente . R an9 os ■ max i 5 > m i n 0 
-I" -:n¿ua el estado del modo Mantenido í N en 
ti rila indicadora). En este modo los sonidos no 
^LaP »recen sino se Presiona otras teclas o 
■lene i ó con la barra esPaciadora 
-- --«bia el estado del modo Muí tx voz C V en la 
indicadora). En este modo Pueden ejecutarse 
.taneamente hasta 3 voces. 
~ . -5 cambia estados d< Caída a Acordes. 

p^rsnite definir las formas de ondas. 
I-ando un modo esta activado, la letra 9ue le 
-esPonde se muestra al reverso. 

X"- - r ¿ ■= cambia n P r es i o n a d o l a t e c l a ( ] TRL a u. n 
-y-r Sel 1 al 8 (octava mas baJa y mas alta 
- 1 - ~z~ ivamente) . 

*":3RBE3 : Puesto el modo Acordes con F5.> una 
KguT>da fila indicativa aParece en la Parte 
saP^-ior de la Pantalla. A la izquierda va el 

IM - - j S i* se can b i a P re s i onando SH IFT a un nro 

mi 1 al 9 : a>Maaor, <2)Menor, (3 disminuido, 
- ffcweritádo, (5)SePtimo Maaor, <6)SePtimo Menor i 
~ Séptimo Dominante, < 8) Sexto Maaor, O) Sexto 

Ni 1 a der ec h a se mués t r a l a P os i c i o n : raíz, 1 ra 
ersion, 2da inversión. 
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FÜRMRS DE OHDfl: Para rede finir formas de onda 
Presionar F2. La computadora Presunta Por valores 
de fittack > Decay, Sustain.. y Reléase muestra 5 
U derecha los valores actuales. Si no se "desean 
camnbios Presionar RETURN. 

La simiente Pregunta es Por el TiPo de forma de 
onda; debiendo ingresar la Primer letra del tiPo 
ele9ido. Si selecciona Pulse, entonces se Ip 
Pedirá una Proporción. 

Refrescando conceptos ; 



flTTñCK : es el tiemPo que tarda el sonido en 
alcanzar el volumen mas alto. 

DECRV: es el tiempo que tarda en caer hasta el 
sostenido < Sus ta i n ) . 

SUSTÑIN: tiempo en que se mantiene el volumen. Un 
órgano tiene un alto valor de Sustain. 
RELEASE: determina el tiempo que le toma al 
sonido llegar al silencio. Un valor grande de 
Reléase es como una cuerda de guitarra que 
gradualmente cesa de vibrar. 

Formas de Onda : 

1. SRWTOOTH: diente de siprrs 

2. TRIRNGLE ' triangular 

3. PULSE : cuadrada 

4. HOISE: ruido 
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10ñ REM ****************************** 

110 REM * SIHTETIZfiBOR 64 * 

126 REM ****************************** 

206 OÜTO470 

240 I FRRC0THENRft=R 

256 RE-R : T*S+V*Z7 : POKEVH, V*Z7 ¡ PDKE 

NLí FLCRft) : POKEHH/FHÍRR) s SVSS2 : POKE 

T+24.WV+21 

260 FÜRI-RRTORESTEPSGHCRE-Rñ V2 1 POKE 
T,FUn :PüKET+l,FHa> ¡HEXT 
270 1FPEEK ( I K > = JRHBPEEK C I1O-64THEN270 
280 RR-RE : PGKET+Z4, WV+P = V=V+MH*CZ1+Z3* 
<V=Z2> ) : RETURH 

310 PÜKEEF i 20 : F0RI=Z6T0Z2 ; fl-R+C<Cl ,C2/ 
I 3 : PÜKEVH, I*Z7 : PÜKEHL, FLCñ> 
320 POKEHH , FHCñ) : SVSS2 : HEXT : PQKES+24, 
WV+Z1 ; POKES+1 1 > NV+Z1 : P0KES+18/WV+21 
330 I FPEEK< I K > -JRHHPEEK iWO -64THEH330 
34@ POKES+24 > WV+P ■ PÜKES+ 1 1 , WV+P ¡ PÜKES+ 
ÍS, WV+P : RETURH 

370 fi=PEEKC IK> : 8VSS1 : J=PEEKÍET) : IFJ=Z8 
ÜRR-2STHEHRETURN 

380 FORI=ZlTOJ : R=KCPEEK<ET+I))+OC:.IF 
R=ÜCTHEHHEXT ¡ RETURH 

350 T < I > = V*Z7 • POKEVN * T C I > : POKENL > FL C R > 

P0KENH/FHCR)=SVSS2 

400 IFMHTHEHV-V+Z1 = IFV*Z3THEHV*2@ 

4 1 0 HEXT : FOR I =Z 1 TDJ - POKES+T C I ) +Z4 , WV+ 

Z1=NEXT 

420 SVSS1 : 1 F J-PEEK i ET > RHDR«PEEK C I K > 
THEH420 

430 FQRI-Z1TOJ : POKES+T < I >+Z4, WV+P ¡ HEXT 
QOTO370 

473 PRINT"CclrD"CHR$Ci42>JCHR*í8>; = 
PÜKE53280 , 0 = P0KE532B1 , 8 : P0KE788 ; 52 

438 F0R>iTD39 : SP$-SPÍ+" » ■ LH$=LH$+ " # " 
HEXT 

439 PRINT"Cctrl 83QCTRVM5 VOZ-l 
Cctr-1 23C = S : M: Ectrl QJVEctrl 0!P[ctK 
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9]PCctrl m Cctrl 8] VOLUMEN 3 10Cder. 3 "LN$ 
506 P0KE214; 23 -PRINT '■ PRINTTRB< 13) 
"SINTETIZRDOR 64Chome] [aba Jo] C aba Jo] " 
510 fi$="P0R FñVOR ESPERE Lctrl 2]": 
PÜKE214, 21 : PRINT : PRINTTRBC 13) " Cctrl 
6] M ñ$; 3=54272 ¡GOSUB 1580 
520 DIMFL<134),FHa34),K<255),C<3,2,2): 
QC=43 : VL*i8 ¡ MN=1 : LL=1 ¡ RR=-1 

539 Zl-l ■ Z2-2 : Z3*3 : Z4=4 : 27=7 i ZS=S4 i 
FF=255 ¡ HB=256 

540 IK-137 : BF-193 : VN-251 : NL=900 : NH=901 : 
ET=829 ¡ 31=49152 • 32=49483 : F0RI=Z1TG41 
550 K < RSC <MIDí< 11 Q2W3ER5T6 V7U 1 9O0P-* 
CHR$ < 92 ) CHR$ ( 94 ) C harte ] Z3XDC VGBHN JM L. V" 
; !)))=!; NEXT 

560 PRINTTRB< 13) "Cctrl 4] Carriba] "flí = 
R=5.8 = R«l 0737. 4133 ■ J=Z2f<-Zl/12) 

579 FOR I =94TG0STEP- 1 : FH < I > =1 NT < R*R/HB ) • 
FL< I )=fl*R-HB#FH< I > = fl=R*J : NEXT 

580 PR I NTTflB ( 1 3 > " C ar r i b a ] " flí ■ GOS UBI 31 Q 
610 FOR I =Z0TO8 : FOR J=Z0TÚZ2 : REflDC ( t, J , 

0) j CC I , J, 1 ) , C(I , J, 2) : NEXT = RERDC*< I > = NEXT 

620 REflDNPt$ (0 ) > NM$ (1 > , NM* < 2 > : FOR I - 1 TOS : 

RERBRDC I ) , 3RCI > , W< I > , PL< DjPHCI) : NEXT 

630 FOR R-l TO 2 : RERBI j J : FORfl=ITOJ ; REfiD 

I N : POKER , I N : NEXT : NEXT 

640 PRINTTRB<9)"CabaJa]<ctrl X PRRR 

FINRLIZRR) " : 1=1 : GQSUB868 

630 WRITBF,FF- J=PEEK<IK) -GETR$:R=K 

< RSC ( fl* ) ) +0C : I FR=OCTHENGOSUB300 = G0T0688 

690 IFSLTHENGOSUB240 = GOTO680 

700 IFCHTHENGOSUB31Ü : GOTQ688 

710 IFLLTHENGÜSUB370 : G0T0688 

720 T=S+V*Z7 : POKEVN , V*Z7 : POKENL , FL < R ) = 

POKENH i FHCR) = SV8S2 : P0KET+Z4, WV+Z1 

730 IFMNTHEHV=V+Z1 : IFV=Z3THENV=Z8 

748 IFPEEK < I K ) = JRNDPEEK < I K > -64THEN748 

750 P0KET+Z4, WV+P : WRITBF, FF : GETR$ : J= 

PEEKC IK> : R=K<RSC<fl$) >+0C : IFR-OCTHEN720 
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760 GOSUB8S0 : GOTOS80 
300 IFCH=0THEH830 

310 FÜRI -0TO2 : I Ffl*-M I D* ( " CHR* < 3 1 > CHR* 
(93) ) " t 1+1 j 1 )THENC2-I ; PRINT" C horneé 
[ aba j o ] " TñB < 22 ) NM* < 1 ) = RETURN 
820 NEXT : R*R3G < ñ* ) ■ I Ffl>32flNDfl<42THEN 
C 1 =fl-33 '■ PRINT " [heme 3 E aba j o 3 " TñB Ci 2) 
C*<C1>: RETURN 

330 F0RI*lT08¡IFR*OMlD*< u EcfeM lKctrl 
23 Cctrl 33 Cctrl 43Ectrl 53[ctrl 63[ctrl 
73Cctrl 83 " >lt OTHENNEXT : G0TQ350 
840 ÉX>I2#U-2Í> :pRlNT"Chome3"TñB<7) 
MIDÍCSTRÍÍ i >*2>'> RETURN 

350 FÜR 1 = 1 T08 ¡ : I Ffl*OM 1 1* C " E C 13 EC 23 [ C 
33 CC 43 EC 53 CC 63 EC 73 EC 83M,1)THEN 
NEXT : GÜTO880 

863 P0KE382 f PL< I) • POKÉ903 , PH < I > : WV* 
WV CI>: PQKE904 * WV : PGKE985 , RB <l ) ¡ POKE 
906/ 3R (I) 

370 PRINT " Chome 3 " TRB< 1 ti > M I D* < STR* (I > , 
2): RETURN 

830 IFfi*0"Cf 13"RNDR*0"Cf33 "THEN938 

830 VL=VL- < VL Cl 5RNBR*= " E f 1 3 " ) + < VL>0 

RNDR*-" Ef 33 " ) = POKES+24 * VL 

900 PR I NT " Ehome 3 " TRB C 37) R I GHT* < " 0 " + 

MID*<STR*<VL) . 2> , 2) ¡ RETURN 

930 IFñ$= ,, [f43"THENP=l~p:PÜKEi047 J 13+ 

128#P : GOTO 1580 

948 IFR* ~ " C f6 3 " THENMN= 1-MN i POKE 1849 , 22+ 
128*MN : GOTO 1580 

350 IFR*=" Cf'83 "THENLL-i-LL : POKE 1051 > 16+ 
128#LL: RETURN 

368 I FR*= " E f 7 3 " THENSL* 1 -SL : RR=- 1 ■ POKE 

1045. 19+1283ÍSD 0H»1 : GGTÜ930 

370 IFfl*0" Ef53"THENl01O 

938 POKE1045>19:3L=y 

330 CH= 1 -CH ¡ POKE 1 043 , 3+ 1 28*CH : IFCH=8 

THENPR I NT " Chame 3 C aba J o J " LN$ : PR I NTSP* ¡ 

RETURN 
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1006 PRINT ,l ChoneKabajo3"SP*"tcíer. 3 
[arriba]TIPÜ 

ACORDE = "C*<C1 >TRBC23>NM$<C2> 

" I NVERS I ON C der . 3 " LN* = RETURN 

1B10 IFR$=" "THEN6OSUB1580:Rfl=-l:POKE 

BF, 20: RETURN 

1 02S I Ffi$* " " THENGOSUB 1 580 : PRINT" Ce Ir 3 " ; 

:P0KE788,49:£ND 

1 030 I FRÍO " C f 2 3 " THENRETURH 

1070 GOSUB1470:pOKE214, 13 ¡PRINT 

1080 PRINT VOZ ñ DEFINIRSE Cl-8>"; : J«l : 

BOSUB1500 

1 890 I F I N< i OR I N>8THENGÜSUB 1 470 : GOTO 1 400 
1 1 00 I - 1 N : PR I NTTRB C 3 1 ) " RTT : "f1ID$ i STR$ 

1110 PR I HTTfiB <31 5 " DEC : " M I D* C STR$ < ñD C I ) 
RND15),2> 

1120 PRINTTRB<31)"SUS: "MID*CSTR*< INTC 

SR<n/ie»/2> 

1 1 30 PR I NTTRB í 3 i > " REL ■ " M I D$ < STR* í SR C I ) 
RNDI5>,2) 

1140 PRINTTRBÍ31>"WVF: Cctrl 43"MID$C 

" SñWTR I PULNSE " * 3*L0G< WV C I ) ) /LGG <2 )- 1 1/3) 

"Cctrl 23 

1150 I FW V C I ) =64THENPR I NTTRB < 3 1 ) " PLS : 
" M I Dí i STRí ( PH i I > #HB+PL (I ) > , 2 ) 
1180 P0KE214, 14 : PRINT : PRINT"PROP. 
RTTRCKC0-15)"; ¡ J=2 : GOSUB1500 ■ IFER 
THEN1070 

1190 RD=IN:PRINT"PROP. RRTE <0-15>";: 
GOSUB1500 : IFERTHEN1070OSUB1500 : IFER 
THEN1070 

1200 ■fiD»fiD#16DRIH:PRIKT" NIVEL SUSTRIN 
<0-lS) " ; : GOSUB1500 : IFERTHEN1070HEN1070 
1210 SR=IN:PRINT"PRDP. RRTE (0-15)";: 
GÜSUB1500: IFERTHEN10700: IFERTHEN1070 
1220 SR-SR* 1 SOR IN: PRINT "Cctrl 438Ectrl 
23RW Cctrl 43 T Cctrl 23RIRNGLE Cctrl 43 
PCctrl 23ULSECctrl 43 NCctrl 23GISECctrl 
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23 "J : J=l ¡OOSUBISSS 

1238 FOR J- 1 T04 : 1 F I N$OM ID* É " STPN " , J ; 1) 
THEHNEXT:QÜTO1070 
1248 WF*2f ( J+3) : IFWFOS4THEN1260 
125Ú PRINT"PRÜP. RñTE (0-4035) "i M 
GOSUB 1 500 ; PU= I N ■ I F I H<0úR I NM835THEN 1 0 79 
1268 UV< I >=*WF : PL< I )-PU-HB*INTíPU/HE) ¡ 
PH < I > = I NT < PU/HB ') : ñB < I > =ñD = SR < I ) -SR 
1 270 GOSUB 1 470 : GOSUB 1410: GOTO860 
1310 POKES+24, VL:PRIHT"Chome3E3 aba Jo]" 
TfiBO)" Cctri 9J Cder. 3 Cder. ] ] Cder. 3 
Cder. 3 Cder. 3 3 Cder, 3 Cder. 3 3 Cder. 3 
Cder. 3 Cder. 3 " 

1320 PRINT"TECLñDQ Cctrl 33 Cctrl 
032Cctrl 33 Cctrl 033Cctrl 93 3 Cctrl 
035Cctrl 33 Cctrl 03SCctrl 33 Cctrl 
037Cctrl 33 3 Cctrl 039Cctrl 93 Cctrl 
030Cctrl 33 3 Lctrl 83-Cctrl 33 Cctrl 
03£Cctrl 93 3 " 

1330 PRINT" BAJO Cctrl 93 3 3 3 3 3 
3 3 3 3 3 3 3 3 " 

1340 PRINTTñBC10) M Cctrl 93G3W3E3R3T3 Y3U 
3I3Q3P33*3t3 " 

1350 PRIHTTñE<ll)"Caba.io3 Cctrl 33 

Cder. 3 Cder. 3 3 Cder. 3 Cder. 3 Cder. 3 3 

Cder. 3 Cder. 3 Cctrl 03 " 

1360 PRINT "TECLADO Cctrl 33 Cctrl 

03SCctrl 33 Cctrl 03DCc« 9 3 3 Cctrl 

03GCctrl 33 Cctrl 03HCctrl 33 Cctrl 

03JCctrl 33 3 Cctrl 03LCctrl 33 Cctrl 

03= Cctrl 33 Cctrl 03 " 

1370 PRINT" RGUDO Cctrl 33 3 3 3 3 

3 3 3 3 3 Cctrl 03 " 

1330 PRINTTflB<12>" Cctrl 93Z3X3C3V3B3N3M 
3, 3. 3/Cctrl 03 " 

1410 P0KE214, 13: PRINT :PRlNt n Fi — Cctrl 
43MAS ñLTGCctrl 23 F2 — Cctrl 43FÜRMR 
DE ONDfi Cctrl 23 

1420 PRINT"Caba,io3F3 ~ Cctrl 4 3 MAS 
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EñJÜEctr I 21 F4 — LrU-l 

4 3 MANTENIDO Cctrl 2] 

1436 PRINT"Cab.?..jü3F5 — Cétrl 

4 3RG0RDES Lctri 23 F6 — Crhrl 41MML7T 

VOZCctrl 23 

1 448 PR I NT lJ C aba ¿o 3 F7 — Cctrl 43f:ñIDR 
CctN 2] FS — Ectrl 4 3-PQLI FONICO 
Cctrl 23"; RETURN 

1476 PÜKE214,12:PRINT:F0RJ=1T011 :PRIHT 

3P$ = NEXT : RETURN 

1506 IN$~"" :pRINT"? 

1510 PRINT" Cctrl 31 Cctrl 83Cizq.3";: 

MRITBF, FF : GETfií : IFR$="X"THEN1028 

1 528 fi-RSC <fi$> : I FR= 1 3THENPR I NT " " : 

I N-VAL i I H$ ) : ER-( I N<8ÜR I H> 1 5 ) fip i H$* " " : 

RETURN 

1538 I FR-20ñNDLEH ( I Ní > THENPR I NT " C2 h" i 
: I N$=LEFT$ C I Ní , LEN < I N$ ) - 1 > 
1540 IF(ñfiND127><350RLEN<lN$>=JTHEN151ñ 
1 558 PR I NTR* ; : I N*= I N$+H$ : GOTO 1518 
1 588 FOR I -4TÜ 1 8STEP7 : P0KES+ 1,8: NEXT = 
F0RI-8T023 = POKES+1 , 8 : NEXT = RETURN 
1628 DfiTA,4,7,,3,S,,5,9, "MRVOP 
,3,7, ,4,9, ,5,8, "MENOR 

1630 DRTR,3,6, ,3,9> ,6.9, "DISMINUIDO" , ,4 

..8, ,4,8, ,4,8, "flUMENTRDO " 

1648 DñTñ,4, 11, ,4, 11, ,4, II, "MflVOR 7W\ " 

i » 3, 18, ,3, 10, ,3, 10, "MENOR ?MQ " 

1658 DHTR..4, 18, ,4, W* ,4, 18, "DOMIN 7MÜ% 

4,7,9,4,7.9,4,7,9, "MfiVQR 6TR" 

1668 DfiTRS ,7,3,3,7,9,3,7,9, " MENOR 6TR", 

" RRIZ " , "PRIMER" , SEGUNDO 

1 698 DflTfi , 249 ,16,,,, 249, 32 , , , , 249 , 64 , 

168, 15, ,249, 128, , , ,248, 16, , ,204,284, 16, 

1780 Df-fTfi , 252 , 64 , 200 , , 1 92 , 248 , 32 , , 

1738 DRTR491 52, 49294, 128,169, , 141,6] ,3. 

178, 169,254, 133,252, 165,252, 141, 

, 2¿0, 173 

i 748 BflTR 1 , 228 , 1 57 ,143,1 92 , 232 , 56 , 
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38.252. 176.239. 162. , 166. . 133. 143. 192. 
42. 176 

1756 DRTR23.72. 132.253. 138. 16. 10. 10.5. 
253. 168. 185.79. 192. 238. 61 . 3. 172.61. 3. 153 
1760 DñTñ61.3. 104. 192.3.240. 12. 164.253. 
200 .192.8. 2Ü8 .219. 232 . 224 ■ 8 . 208 . 209 . 88 
1770 BRTR96. 17. 135. 134. 133. 136. 23. 13. 
20 . 0 . 69 . 83 . 30 . 52 . 65 . 87 . 5 1 . 88 . 84 . 70 . 67 . 54 
17ññ BRTR68. 82. 53. 86. 85. 72. 6fc> 56. 71 . 
89.55.78.79.75.77.48.74.73.57.44.64. 

58 . 46 i - '■' üi 

1790 IIRTR45.76.8Ü.43.47.94.61; 1. 13.by. 

42.92.3.81 .2. 32/58. 4.35.49 

1820 DRTR43408. 49454. 169.212. 133.252. 

169. . 160.6. 145.251.136. 145.251. 170. 

1830 b DRTR136. 145. 251 . 138. 145. 251 . 136. 

192. 1. -208.249. 188. 41. 193. 185. 132.3. 
145.251 

1840 DRTR232.224.6.208.243.96.2.3. .1.6.5 



SI Ud . desea tener estos pr ogramas o algunos de 
ellos en cassette o disket ,puede solicitarlos a 
sos autores» al teléfono 

48-3103— 
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SECRETARIA ELECTRON ICft 

Cuando t- e n e m c> s u n a c o rn p u ta d o r 3. c o n I a, cua 1 
aprender y divertirnos, también le búscanos una 
aplicación en el hü9ar o la oficina. Este 
Pr 09 ra roa no solo nos Permite mantener archivos de 
inventarío a a senda telefónica.* sino que se 
comporta realmente como una secretaria al 
Proceder a CISCAR el numero de la Persona 
ele9ida. 

Esta Posibilidad su r 9e de l f a ntast ico c i r cu i t o de 
sonido de la Commodore 64 > q ue Produce los tonos 
exactos requeridos 

Cuando el Pro9rama se corr-^ con RUNj la Primera 
Pantalla Permite ele9ir entre 2 modos- Fi9enda 
telefónica o Inventario. En cualquiera de los 
modos aparece un menú de 9 opciones Para el 
manejo de los datos en Pantalla y archivo. 
Cada oPcion ele9ida es fácil de sesuir y se 
Permite 9uardar los datos en cassette o diskette. 
Cada archivo abierto Puede manejar hasta 60 
registros de 5 campos cada uno. 

En el numero de oPcion 5 se usan los datos de 
modo diferente- Si se esta en modo ñ9enda 
Te 1 ef on i ca / 1 a comP utadora venerara L os tonos 
necesarios Para efectuar la llamada telefónica 
C te l fonos di9i tales). Se Puede también red i se ar y 
cronometrar el tiempo de la llamada. 
En el modo Inventario esa misma oPcion 5 brinda 
un total de los valores. 

Es Posible asimismo efectuar una salida Por 
impresora de los re9istros con la oPcion 8. 
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100 rem mmmmmmmmmmmmm 

110 REM * SECRETARIA ELECTRONICA * 
12171 REM ************************** 
1 70 D I Mfl* < 5 j 60 > i D*(S) , C* <6) > Pl <3> > PZi 3) 
,B*C2,55 

130 3=54272 :SZ=0 
190 PÜ=1 

2ü0 READ PKl>,PK2)*Pl<3)*P2a>;P2<2>; 
P2C3) 

210 F0RI=1T05 : READB$< i > I > ; NEXT 
220 F0RI-1T05 ; READB$ < 2 > I ) : NEXT 
230 DATA 697, 770, 352, 1210* 1340,1481 

249 DATA "NOMBRE : " > "TELEFONO 
"DIRECCION i " , "CIUDAD : " > "PROVINCIA l" 

250 DATA "ITEM ¡S "VALOR = "UBICACION 
: "/'FECHA COMPRA "NP.O. SERIE [* 
268 RF=2000 : RF= í RF-38 ') /% '■ RH=INT C RF/'S) ¡ 
RL=RF-8*RH 

279 F0RX*ST0S+24 ■ POKEX , 0 ■ NEXT 

280 POKES+23 , 3 ■ PÜKES+2 1 , RH : POKES+22, RL 
2^0 PRINT"Cctr\ lJCclr]C2 abajo]": 
P0KE53231, 1 

3S0 PRIWTTflBíf) "*********************** 
*****" 

310 PRINTTñBCb) "** SECRETARIA ELECTRON I 
CA **" 

320 PPINTTAE<6> "*********************** 
*****[ 15 abajo]" 

34* PFINTTfiBC3)"l. AGENDA TELEFON I CA M : 
PR I NTTfiB < 8 ) " l aba j o 1 2 . I NVENTAP I O " 
350 GOSUE2530 

360 IFK=49 THEN0P=1 :OOTQ390 
378 IFK=50 THEN0P=2 : GOTO390 
330 PRINT "CORREGIR 1 O 2":GÜTQ359 
390 H=0:GOTQ550 

410 PRINT" 12 aba jo 3 ENTRE" : PRINT "C aba 4o] 
Cder.]F PARA FINALIZAR" : PRINT" Eder. 10 
PARA RE- INGRESAR" : Gl=l = G2=2 
420 I=N+1 
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430 IF K66 OR 1=60 THEH 468 
449 PRINT" C2 abajo] *** ARCHIVO 
COMPLETO <N=60>***[2 aba Jo]" 
456 GGSUB2520 : RETURN 
460 PRINT" " 

470 FRINTE$íOP, 1>; : H$,< 1 « I >«" " : INPUT 

480 if fi$a,i>="F M üRñ$a,i;'= ,, FiN" 

THEH 1729 

490 IF A$<1, I )=:"" THEN470 

500 IF fl*<l, I)O"R"THEN520 

510 1=1-1 : N=I-1 : PRINT" *** RE-I N ORESE 

ULTIMO BLOQUE =0010460 

520 F0RZ=2 TO 5 

530 PRINTB*<OP,Z); : Ñ$iZ~* I )=" " : INPUT 

fl»'<Z>T)í«EXTZ 

540 N=I : GOTO 10 

558 SC=4: PRINT" Cclr3C2 abajo] [6 der.]*# 
SECRETARIA ELECTRONICA **" 
560 IF0P=2 THEN58S 

570 PRINTTfiB< 11) "AGENDA TELEFONICA": 
GOTO530 

580 PRIMTTABC 15) " INVENTARIO" 

590 PR I NT " ****#****##*#***##******####* 

600 PRINT "APRIETE" : PRINT" 1. AGREGAR 
DATOS" 

610 PRINV2. CAMBIAR DATOS" = PRINT "3. 
MOSTRAR LISTA DE HOMBRES" 
626 PRIHT"4. MOSTRAR DE UNO" : PRINT"5. 
USAR DATOS" 

630 PRINT"6. GUARDAR ARCHIVO" : PRIHT"7. 
TRAER ARCHIVO" 

640 PRINT"8. LISTAR EN IMPRESORA" : 
PRINT"9. FIN" 
650 GOSUB2530 

660 IF KC49 OR K>57 THEH 550 
670 PRINT" Cclr] " 
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ese oh < k-4s > gosub ?m > 730 , 900 , 370 , 1 sse 

* 1520/ 1260.2290.2340 
690 GDTO550 
700 GOSUB410 
71© RETURN 

730 INPUT "HRO. DE REGISTRO" i Mí : IFM$=" " 

740 PR I NT " C 2 aba j o 3 USE " : PRINT" t aba ..¡ o 3 

CURSOR PflRñ CAMB I DS " : PR I NT " [ aba J o 3 /E/ 

PARA ELIMINAR EL ITEM" 

750 PRINT " [abajo] < RETURN > SI NO 

REñLIZñ CAMBIOS" ¡PRINT" [2 

abajo] " : GÜSUB 1 160 

760 Gl=l : I«M ' 

770 PR I NTfií <1 , M ) ; : P$= " " : I NPUT P* 
780 IF P$="" THEN 830 

799 1F PÍOVE/" THEN 820 

800 F0RZ=1 TO 5:fl*CZ,M)="H(LTIMQ 
REGISTRO BEL ARCHIVO" : NEXT 

8 1 0 GPSUB 1 720 ! N=N- 1 : RETURN 
820 R#<l/M)-P$:Qa«Í 

830 FOR 2=2 T05:PRIHTA$CZ^M); :P*="": 
INPUT P* 

840 IF P$="" THEN 860 

850 A$CZ.M;=P*-G2-G2+1 

860 NEXTZ 

878 GOSUB 1040 

880 OH T GOTO77O,730,S90 

890 RETURN 

900 IF G2O0 THENG0SUB1728 

9 1 0 FÜRXX= 1 TON : M=35-LEN < A* C 2 j XX ) ) : 

920 PR I NTTAB < 4-LEN < T$ > »K : 5 "Ei2<l3";Tí; 

A$<1.XX);TABCM>;AÍC2,XX=) 

930 11 = 1 NT C XX/ 1 6 > = I F 1 1 OXX/ 1 OTHEN 950 

940 GOSUB2520 

959 NEXTXX = GÜSUB2520 : RETURN 

970 M*="" = INPUT" C2 abajo3NR0. DE 

REGISTRO" ; m ■ IFM$=" "THEN1030 
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380 GOSUB 1 1 60 

999 PRINT"Cclr3¡:3 abaJoKS der.3" 

Í000 F0RI-1T05;PRINT"C5 der. ] " i ñ*< 1 41) ■ 

NEXT 

11319 GOSUB 1 940 

1020 OMT GOTO990/370, 1030 

1038 RETURN 

1040 PRINT'T.2 abaJoDAPRIETECabajo]" ; 
PRIHT"fl PARA UN REGISTRO ANTERIOR" 
1050 PRINT"CabaJo]P PñRfl PROXIMO 
REGISTRO" :pRINT" Caba Jo] O PflRR TRAER OTRO 
REGISTRO" :GOSUB2520 

1069 T=3:IFK ; C>65 THEN 1090 

1070 T=l : IFM*1 THEN1140 
1080 M=M-1 

1030 IF KO80 THEN1120 
1100 T«l : IFF'HNTHEN 1140 
1110 

1120 IF K079 THEN 1140 
1130 T=2 
1140 RETURN 

116Q IF HBS(ñ£Cí.M*>-53í>4 THEN 1200 

1170 N=VALCM$> : IF M<N OR M-H THEN 1130 

11 80 M=N 

1130 RETURN 

1290 F0RI=1 TO N:M=I 

1210 IF LEN í Ní > >LEN <ft$(.l> O > THEN 1230 
1220 IF M*=LEFT*Cñ*íl*I).LEN<M*))THEN 
1240 

1230 HEXTI 
1240 RETURN 

1260 PRI NT 11 ENTRE 1. CASSETTE" 
1270 PRI NT" 2. BISKETTE" 

1280 INPUT "C2 abaJo3GPCI0N";AS 
1230 IFAS<1 OR AS>2 THEN 1260 
1300 IF AS=2 THENAS-2 : 83=8 : GOTO 1320 
1310 AS=0:SS=1 

1320 H$=CHR$<13) • INPUT "NOMBRE BEL 
ARCHIVO" : MÜS 



38 



La Fantástica C.64 



1338 IF flS<>2 THEN 1376 
1349 REM 

1 359 0PEN2 , SS , AS , " 8 i " +N*+ %S,R Ü 

1366 GOTO i 380 

1376 0PEN2,SS,A8,N$ 

1389 INPUT#2,Q,NT,F$,B$ 

1390 IF O-OP THEN 1460 
1400 IF 0*2 THEN 1429 

1410 PR I NT " E aba i o 3 flRCH í TELEFONICO" : 
GOTO 143tí 

1 420 PR I NT " [ aba J o ] flRCH I VO DE I NVENTñR 1 0 " 

1430 PRINT"PR0OEDE CS/N>?" 

1446 G0SUB253@:IF K=78 THEN RETURN 

1459 IF K083 THEN 1448 

1460 tiP«Ú:N*NT 

1476 PRI NT "ANTERIOR ACTUALIZACION ¡ " í Dí 

1480 F0RI*1 TON^FORJ^l TOS 

1 450 I NPUT#2 / R*CJ 1 1 > ¡ NEXT J : NEXT I 

15O0 CL0SE2 : GÜSUB2520 ¡ RETURN 

152© IF G2O0 THEN GOSUE1720 

1530 PRI NT "ENTRE 1. CASSETTE" 

1540 PRI NT" 2. DISKETTE" 

1550 INPUT "12 abaJoJSU ELECCION"; AS 

1560 IF RSC1 OR RS>2 THEN 1530 

1570 IF RS=2 THEN RS=2 : SS=6 : GOTOÍ590 

1580 RS=1 :SS=1 

1590 HÍ-CHRÍC 13> : INPUT "NOMBRE DEL 

ARCHIVO" ;NÍ 

1600 INPUT " FECHA." ;D* 

1616 IF RS02 THEN 1650 

1620 REM 

1630 0PEN2,SS,RS, "0 ¡ "+H*+" , S, W" 

1640 GOTO 1660 

1650 OPEN 2,SS,AS,Nf 

1660 PRINT#2, OP j Ht; H; H$; S*; H$J D$; H$ 

1678 FOR 1=1 TO N:F0RX=1 TO S^IF 

ñ^íX, I>= 1 ' " THEN AÍÍX,I>=" " 

1680 PRINT#2/ft$<Xa>;H*'NEKT X ; NEXT I 

1690 PRINT#2,j :CL0SE2 
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1760 G1=0 = RETURN 

1720 PRI NT" ORDENAMIENTO SEGUN QUE 

CAMPO?" 

1730 FOR Z~l TO 5:PRINTZ,". "; EíCOP^Z) : 
NEXT Z 

1740 INPUT F 

1758 IF F-Cl OR F>5 THEN 1726 
1760 G2=0 

1770 PRINT- M C3 abajo]***** ORDENANDO 
DATOS *****[ 3 aba Jó]" 

1788 FOR tmí TO Mr* ¡FOR J=N TO 1+1 STEP 
-1 

1790 IF A*<F, IXflíCFi J) OR fl$<F,I)= 
fl$<F;J) THEH 1910 
1800 G0SUE1 860 
1810 NEXT J 

1820 IF fl$CF,I>OA*(F,I+l> THEN 1840 
1838 1=1+1 
1840 NEXT I 
1350 RETURN 

1 360 FOR 2- 1 TO 5:0* < Z ') =flí < Z * V> 

m<z* i>=a$<z* j> 

1370 AÍCZ>J)=0$CZ) ¡NEXT Z : RETURN 
1390 IF QP*1 THEN 1360 
1960 SM-0 

1910 FOR 1=1 T0N:SM=SM+VAUfl*í2j I>) : 
NEXTI 

1320 PRINT"C2 abajoH4 der. XCOSTO TOTAL 
DE TODOS LOS ITEMS" : PRINT TñEC 14> " C2 
abajo] ";SM 

1938 GOSUE 2520 : RETURN 

1368 GOSUB 370 : IF M** H " THEN 2100 

1970 PRINT" Cclr] C2 abajo] 12 der]" 

1980 T$=A*<2,M> : L=LEN(Tíi? 

1330 FOR 1=1 TO 5 : PRINT" [2 der]"; 

R$(LM) ; NEXT ; PRINT" C2 abajo] í 15 der.]"; 

2060 IF L<10 THEN 2020 

2010 L=L+1 :T$="1"+T$ 

2020 F0RJ=1 TO L:P*=MID*<T*>J.l) 
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203O PR I HTPí ; = I F RSC C P* > <48 OR fiSC < P* > > 
57 THEN 2090 

204i3 T=VñLCP*) : IF TOS THEN 2068 
2858 F2=94i : F 1=1336 ■ GOSUE2410 = GÜT02888 
2060 I*INT<<T-1 V3>+1= IJ*T-3*<I-1> 
2070 Fl«PKI>: F2=P2 C I j > : G0SUB24 1 8 
2088 FORX=lTO 258-NEXT 
2838 NEXTJ 

2 1 08 PRINT" £2 aba j o ] ! ' = PR I NT " C der . 3 

RFRIETE" ¡ PRINT" taba Jo] " 

2110 PRIHT"Cder. ]R PRRR RE-DISCñR" ¡ 

FRINT" C PfiRfi CRONOMETRAR" 

2120 PRINT" Cder. ]N PñRfi UN HUEVO NUMERO ' 

2130 GOSUB 2528 

2148 IFK=32 THEH1378 

2158 IF K*73 THEN 1968 

2168 IF K067 THEN2138 

2178 GO3UE2560 : GOSUB2200 

2130 RETURH 

2280 TI $="800608" 

2218 F0RI = 1 TO t C$(I :'=Nirj$<TI$, I, 1) : 
NEXT 

2228 PRINT" MI 22 aba.jü3C16 der.]"; 

2230 PR I NTC* < 1 ) J C* <2) ; " = " ; C$ < 3 > ; C$ < 4 > ; 

" ¡ u iC*<5)iC$<S) 

2248 F0RI=1 TÜ 258: NEXT 

2250 I=PEEK< 137> ; IF 1=64 THEN 2218 

2268 IF 1=17 THEN 1978 

2278 RETURH 

2230 0PEM4..4 

2300 F0RI = 1 T0N:F0R.J=1 TOS 

2310 PRIHT#4,ñ*':J.. I) ¡NEXT 

2328 PRINT#4, " " :PRINT#4, " " • NEXT 

2338 PRINT#4j i : CL0SE4 = RETURH 

2348 PR I NT " C c 1 r I C 2 aba j o 1 í der- . 3 BE3EH 

TERMINAR EL PRGGRRMñ V PERDER" 

2350 PRINT" Cder. 3T0DR LR INFORMACION EN 

MEMORIñ?" 

2 360 PR I NT " C der . 3 1 aba j o 3 <, '3 A-i > ? " 
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237Ü GOSUE2530 
23SC1 IF K¡=73 THEH710 
2390 IF KOS3 THENRETURN 
2400 END 

2418 FU- 1 NT < F 1 / . 86097 ) • H 1 = I NT < FB/256 ) 
L1-FB-Í25S*H1> 

2426 FD= I NT ÍF2/ ( 06997) : H2 !S INTÍFD/25£> 

L2=FE-<256*H2) 

2430 POKES+5,0:POKE 3+12,0 

2448 PÜKES+b , 224 : POKES+ 1 3 > 240 

2458 POKE S+24,31 

2466 PÜKES+ 1 , NI : PGKES , L 1 

2478 POKES+8 > H2 = PÜKES+7 , L£ 

2480 POKES+4 , 33 ¡ POKES+ 1 1 * 33 

2490 FÜRZX=1 TO 180:NEXT 

2508 POKE S+4, 32 ; POKES+1 1 , 32 

25 1 0 POKES+24 , 0 : RETURN 

2528 PRINT"CabaJo][4 der. 3TOQUE UNA 

TECLA PARA CONTINUAR" 

2530 GET K*=IF K*<>"" THEN 2538 

2540 GET K*¡IF K*="" THEN 2548 

2558 K=ASC(K$) ■ RETURN 

2560 PRINT"[4 arriba] ¡ FORI=lTO 2= 

PR I NT " C 34 es-P ac i os ] " : NEXT : RETURN 
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Estadística en Ayuda del Azar 
p»tICflCION ñ Lfl QUINIELA 

i s i 9u i ente es un P ro9rama de aP 1 i cae i on j 
¡¡¿di ante el mismo tratamos de determinar., 
basándonos en los resultados obtenidos en cada 
i : - = ; ios números c o n n a a o r e s P o sibili d ad e s d e 
^ : r sor te a d os. P ar t i mos de 1 a Premisa, de q ue 
^Bnto mayor es la demora; mayor es la 
^K*abilidad de que sal 9a sorteado. 

mar razones de importancia consideramos Para el 
zulo sólo los Primeros cinco números de cada 
*eo, teniendo en cuenta que influyen factores 

-_• como la capacidad de la maquina y la 

l^locidad de ejecución. 

\- s tener Presente que los datos deben ser 
; : z a d o s > P a r a ello debemos a9r e9ar c ada 
mr^so en forma de BATA al final del Programa. 
HT Primer numero del BATA corresponde al Primer 
*r*mo, recordar ademas que el ultimo BATA debe 
ser siemPre F,I,NjA, L . 

- programa Presenta un menú con dos opc iones > la 
limera DEMORAS A Lñ CABEZA V ñ LOS CINCO 

.cu la cuantos sorteos llevan sin aparecer los 
«uleros del O al 9 en la unidad, decena y 

: - i tena. 

ls ¿e9unda opción PROPUESTAS : real iza ^ una 
t-erPretacion de las demoras y con los números 
^Koritos compone un numero Propuesta con ayuda 
■riel comando RND. 

programa utiliza como datos los sorteos de 
3UI NIELA NACIONAL, el ü l 1 1 mo sorteo iíiclui do 
^-responde al dia martes 4 de Junio de 1985. 
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2 REM * ESTñDISTICR DE QUINIELA * 

3 rem mmmmmm%m*.mmmm^m*mm 

4 DIN UNI (100) > DECC 10O) » CEN< 108> > 
U* < 996 ) .. D* C 9O0 > , EST* í 900 > 

5 REfiD EST*':EE>:IF EST*<EE>0"F" theh 
EE=EE+1 -G0TÜ 5 

6 RESTORE 

7 PRINT" Ce Ir] [ctr l 8] [4 abajo] i;. 
CABEZA V UNA CIFRAS A LOS S" 

S PRINT" [5 abajo] 2> APUESTA 

PROPUESTA" 

15 INPUT "[4 abajo] INGRESE 
ELECCION" ; fi : ON fl GOTO 49,48,600,9^0 

48 IF SE=1 AND A=2 THEN 394 

49 SE— i 

50 PRINT"Cclr]" :PRINT" ESTADISTICA 
E ctr l 4 ] QU I N I ELERA C ctr l 2] " ; PRINT" C3 
abajoHctrl 6] CALCULANDO. . . Ectrl 2]" 
68 REfiD A*,B*,C*,D*,E* 

76 SUM*=A*+B*+C*+B*+E* 

80 IFSUM*='* FINAL" THEH 164 

82 UN I *=M ID*< Aí , 3 í 1 > ¡ DEC*-M I D* C A* , 2 , 1 ) i 

cen*-mid*<a*,i,i> 

85 nun=val i un i $ ) : nde-val < dec* > nce= 

VAL (CEN*) 

90 FOR N=@ TO 9 : UNI <N>-UNI <H>+1 ¡ 

DEC < HWDEEKHH1 : CEN C N > =CRN N> + 1 : NEXT N 

1 06 UN I < NUN) =6 : DECCNDE > =0 ¡ CEN <NCE > =0 

103 GOTO 6ü 

104 IF Fl=2 THEN 394 

1 05 FOR I =6T09 : UNI * C I >=STR* CUN 1(1) ) 

1 06 DEC* < I ) =STR* ( DEC CI > > : CEN* (. I > = 
STR*':CENa>> ¡NEXT I^GOTO 394 

190 PRINT" Eclr] Ectrl 2] 

Cctrl 4] " 

192 PRINT"[ctrl 2]— A LA CABEZA — 

[Ctrl 4] - A LOS CINCO -" 
200 PRINT" [ctrl 2] CEN DEC UNI 
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Cctrl 4] HEC UNI "¡PRINT 

2S5 FÜR 1=0 TO 3:UC(i;' = INTCUCCI)/5>: 

DCa>*INT<DCa>/S3 

218 PRIHT" Cctrl 63"; I, "Cctrl 23-" i 

TRB 1 5 ) ; CEH$ C I > ; TRB C 1 0 > J " - " DEC* C I >> 

TñBíl6>J "-"UNI*a>; 

215 PRINT TflB<24); "Cctrl 63 " i I ; " Cctrl 

23- 11 ; f RB< 29 > J DC< I > ; TñB< 34 > i " - " UC C I > : HEKT 

300 PRIHT: PRINT : PRINT" Cctrl 63TQQUE C 

TECLA PRRPi CONTINUAR " 

3S2 GET W* : IF U*0"C"THEN 302 

305 GOTO 6 

394 FÜR 11=0 TO 9 

395 FÜR FF=EE-1TÜ 8 STEP -1=U$<FF>= 
MIDííEST*<FF),3,i) 

396 IF VRL(U*CFF.)>O.II THEN UCai> = 
UCÍ.IIH1 =NEXT FF 

397 NEXTII 

408 FÜR 11=0 TO 9 

405 FÜR FF=EE-1TÜ B STEP -1:D*CFF>= 
MID$<ÉST$<FF>/2> 1) 

410 IF VF¡L(Dí(FF>K>n THEN DCUI> = 
DCCID + l : NEXT FF 

420 NEXTII : IF R=l THEN GOTO 190 

440 FÜR 1=0 TO 9:UCCI>=INTÍUC<I>/5>: 

DC < I > = I NT í DC ( I ;> /5 > : NEXT 

445 UMRX=UN1 (0? ¡ DMflX=DECí0> : CMflX* 

CEHC8) :MñXUC=UC<8> :MXDC=DC(0> 

450 FOR 1=1 TO 9 

460 IF UC<I)>UCCMflXUC) THEN MRXUOI 
465 IF DC(I>>DCaiXDC> THEN MXDOI 
478 IF UNia»UriflX THEN UMRX=UNI ÍI > : U=I 
475 IF DECÍI»DMRX THEN DMRX=DECÍI > : D=I 
48S IF CEHCI>>CMRX THEN CMRX=CEHa > : OI 
4S5 NEXT 

490 PRINT" CclrHaba jo] Cctrl 6] 

PROPUESTAS R LR CRBEZR Cctrl 4]" 
495 PRINT"C2 aba Jo3UHIDRD "Wimm 
STR$ ( I NT í RND ';-TD*9+D > i U2$=STR$ í I NT ( 
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RND<0)*9+1>) 

436 PRINT" ";U1*+U2*+STR*<U) 
560 PRINT" [aba Jo] DECENA " J D; : Dlí=STR$< 
INTCRND<9)*9+1 ) > ■ D2$=STRÍ < INT<RND<#>* 
9+1)) 

502 PRINT" ";D1*+STR*<D)+D2í 
505 PR INT " E aba J o ] CENTENA " C ; ¡tlMfftK 
I NT < RND £ 0 > *3+ 1 > > : C2$»STR$ C I NT < PND < 0 ? * 
3+1)) 

597 PRINT" ".;STR$CC)+C1$+C2$ 

508 PRINT" C2 aba Jo] FAVORITOS A LOS 

CINCO" 

5 1 0 PR I NT " [ aba J o ] UN I DAD " J MAXUC 
515 PRINT" C aba Jo] DECENA ";MXDC 

529 PRINT" C2 aba Jo] tctrl 8] FAVORITOS 
DOS CIFRA A LA CABEZA Ectrl 4]" 

525 CU*-STR* (MAXUC ) = CD*=STR* < MXDC ) 

530 PRINT" C2 aba Jo] ";3TR$ 
<D>+fcU»; n ";CD*+STR#<LD 

535 PRINT" C aba Jo] Cctrl 1 ] ENTRE M PARA 
MENU T PARA TERMINAR" 
548 INPUT M$:IF Mí="M" THEN 6 
545 IF HÍO"T" THEN 540 
55Ü END 
1800 DATA 
1805 DATA 
1810 DATA 
1315 DATA 
1320 DATA 
1825 DATA 
1830 DATA 
1335 DATA 
1340 DATA 
1345 DATA 
1850 DATA 
1355 DATA 
1360 DATA 
1365 DATA 
1370 DATA 

46 



696,531, 124.350,419 
886, 615,304,605, 048 
506 , 363 , 543 ,501, 863 
078,633, 135; 831, 837 
408,782,055,730,747 
172,430^ 133,637,485 
362,840,382, 171,813 
586 ; 300 388 ; 806 ; 367 
413,581; 191,273; 463 
046;516;568; 142,536 
581 ; 266, 264, 664, 160 
735, 635; 377, 325; 673 
317;424; 143,232;025 
504, 445; 333; 837, 646 
005; 687, 188; 104,436 
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2070 DflTfl 323,762,279.243,703 
2075 DflTfl 156,635,637,503,816 
2080 DflTfl 075,809,961,491,153 
20S5 DflTfl 311,456,960,894,259 
2098 DflTfl 713, 432, 332, 733, 20^ 
2395 DflTfl 692,493,797,264, 196 
2100 DflTfl 912,551,034,706,327 
2105 DflTfl 294,640,022,471,233 
2110 DflTfl 506,326,377,447,432 
2115 DflTfl 155,666,262,932,253 
2120 DflTfl 481,943,246,802,216 
2125 DflTfl 438,353,675,274,538 
2130 DflTfl. 043, 239, 466, 216, 495 
2135 DflTfl 059,770,660,934,179 
2140 DflTfl 035,511,140,406,430 
2145 DflTfl 872,314,691,425,798 
2150 DflTfl 098,735,922,525,887 
2155 DflTfl 502,655,638,162,656 
2160 DflTfl 468,594,415,238,515 
2165 DflTfl 378,345,247,320,656 
2178 DflTfl 605,870,374,376,454 
2175 DflTfl 377,313,837,562,735 
2188 DflTfl 928,476,846,753,007 
2135 DflTfl 977,653,436,815,634 
2190 DflTfl 293,359,793,255,168 
2288 DflTfl 997 , 739 , 902 , 049 , 3 1 3 
22Ü5 DflTfl 105,633, 137, 688, 54m 
2210 DflTfl 794,414,591,547,563 
2215 DflTfl 975,957,101,601,818 
2220 DflTfl 412,659,349,101,895 
2225 DflTfl 588,974,863,743.771 
2230 DflTfl 389,663,197,186,137 
2235 DHTfl 256,888,666,716,424 
2240 DflTfl 745,492,673,561,436 
2245 DflTfl 772,358,347 . 8^7. 627 
2253 DflTfl 618,247,334,573,431 
2255 DflTfl 204,145,971,806,242 
2260 DflTfl 786,537,534,302,333 
2265 DflTfl 082 , 428 , 288 , 807 , 1 72 
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2278 DftTñ 822,153.134,333,337 
2275 BflTR 072,350,706,735,381 
2239 DfiTñ 454,631,169,383,580 
2285 DfiTñ 583.177,320,363,452 
2239 DñTñ 017,189,551.780.569 
2235 DRTR 326.631,526,374,337 
2390 DfiTñ 078.364,133.042,530 
23y5 DñTñ 5U0. 569. 267. 668. 886 

2319 DñTñ 135,384,213,486,834 
£315 DñTñ 878,340,663,386,330 

2320 DñTñ 436,999,992. 284,637 
2325 DñTñ 542,709,472,351,465 
2330 DñTñ 964 , 060 ,131, 475 , 972 
2335 DñTñ 180,465,634,945,447 
2346 DñTñ 954,657,184,203,674 
2345 DñTñ 663,066,093,238,355 
2350 DñTñ 782,983,923,884,463 
2355 DRTñ 282,664,367,317,253 
2360 DñTñ 814,477,318,715,053 
2365 DñTñ 473 ,146, 566 , 0 1 3 , 863 
237y DfiTñ 313, 633, 062, 037, 67ñ 
2375 DfiTñ 243.725,744,726.424 
2380 DfiTñ 634,536,067,043,533 
¿¿85 DfiTñ 300.451.812.402,254 
2330 DñTñ 148,530,225,452,141 
2335 DñTñ 547,838,742,621,043 
2430 DñTñ 178,010,374,7^5.434 
2485 DfiTñ 873,233,372,240,323 
2410 BfiTfi 417,571,833,364,452 
2415 DflTñ 264,400, 13 1,294, 25ñ 
2420 DfiTñ 131,413,580,013,662 
2425 DñTñ 831,336,773,141,361 
2430 DñTñ 033,992,545,800,872 
2435 DñTñ 283,611,601,437,045 
2440 DfiTñ 733 , 557 , 367 ,108, 353 
2445 DñTñ 811,651,158,854,306 
¿458 DñTñ 273,343,433,084,212 
2455 DñTñ 735,083,395,367,395 
¿468 DñTñ 184,317,486,303,674 
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£465 DflTfl 551 ,102, 438.. 961 ,941 
2470 DflTfl 411., 053, 304,267. 712 
2475 DHTfl 659, 223, 361 , 814, 32^ 
2486 DflTfl 775,134,738,755.516 
2485 DflTñ 073,593,328,553,522 
2490 DflTfl 988,876,319,414,307 
£495 DflTfl 073,184,768,738,151 
2500 DflTfl 177,985,982,643,728 
2505 DflTH 878, 814, 865, 673, 44^ 
2510 DflTfl 891,911,354,030,718 
2515 DflTfl 873,326,145,334,604 
4800 DflTñ F, I,H,fl.L 



Si Ud . desea tener estos programas o algunos de 
ellos en cassette o disket, puede solicitarlos a 
sus autores, al teléfono 



48-3103- 
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3ESPR0TECCI0N DE CRRTRIDGES 



Muchos cartrid9es Pueden ser fácilmente 
desProteeidos y copiados a disco o cassette. 
Solo será necesario a9re9ar a la computadora urna 
llave doble inversora (switch) de muy baJo costo. 

Antes de comenzar es importante tener en cuenta 
que se debe Proceder cuidadosamente ya 3ue se 
Puede afectar el cartrid9e o la computadora si se 
■o inserta cuando esta se encuentra encendida. 
Si bien la instalación del switch es sencilla, es 
aconsejable 3ue lo realice una Persona con 
ciertos conocimientos en electrónica o un 
técnico. 

El switch sera colocado en la Parte Posterior 
derecha de la computadora^ cerca del cartrid9e 
Port. 

Pasos iniciales • 

1* Comprar una llave doble inversora (switch). 

2- ¿esconectar todos los cables que van a la 
computadora, fibra la computadora sacando los 
tornillos en la Parte inferior y localice el 
cartrid9e Port. 

3- Encuentre un espacio libre a la derecha del 
car-trid9e Port y cuidadosamente efectué un 
a9uJerito con un taladro u otra herramienta bue- 
nos Permitirá instalar el switch. Tensa sumo 
cuidado con los cables. 

4~ Los Piris están numerados desde el centro de la 
computadora hacia la derecha. Será necesario 
localizar los Pins 2^3 y 8 de la fila superior; 
no sera necesario modificar los Pins de la fila 
inferior. 

5- Los Pins 2 y 3 tienen 5 Voltios, fimbos Pins 
están conectados al mismo lu.9ar del circuito 
impreso. Ud. deberá cortar ambos Pins (2 y 3). 
Suelde la mitad inferior (lado del circuito 
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impreso; de los Pins 2 y 3 Juntos. U*9o suelde 
la mitad superior Ciado del conectar) de los Pins 

2 y 3 Juntos. ■ 

6- Instale cables en un lado del switrh 
Provenientes de la mitad superior de los Pins 2 y 

3 y del otro lado del switch los que vieneri de la 
Parte inferior. 

7- Desconecte el Pin 3 de la fila superior &et 
corrector; instale cables desde el suiteh ron las 
mitades superior e inferior del Pin 8. 

3- Verifique que una Posición del suitrh 
conectara los Pins 2 y 3; la otra conecta al Pin 
3. Instale el switch y cierre la computadora. 
9- Conecte todos los cables y a Trabajar. 

Los Pins 2 y 3 contienen 5 Volts y el Pin 3 s» 
denomina GflME Line del cartrid9e. Estos tres Pins 
deben estar desconectados Para Permitir que el 
cartridse sea insertado sin que este tome control 
de la computadora cuando sea encendida. 

Pasos a se9uir '■ 



ífi) Con la computadora y el switch aPa9ados 
inserte el cartridge y lue9o encienda la 
computadora. 

<B> Ud. vera 38713 BflSIC EVTES FREE, el car tr i d9e 
no tomo control de la computadora poro Éü 
Presencia ha sido detectada. 

CC> Car9ue un Programa monitor flssembler ( ML ') en 
ÍC980. 

CB5 Encienda el switch. 

CE) El monitor de ML debe aun controlar la 
computadora. Si en la Pantalla sucede al 3o 
anormal, Por eJemPlo que aparezcan carartpr^s 
raros » entonces no sera Posiblp r 0 Piar *1 
cartridge en forma simple. 

íF> Utilice el comando H del monitor Para 
examinar la memoria comenzando en $3808. 
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CG> Si el cartrid9e es un n auto start" Ud. 
encontrar a a 1 9o s i m i l ar a : 

.8000 09 80 70 UB C3 C2 CD 38 
,8998 3Q 

Los Primeros dos bytes contienen los vectores de 
la dirección del cold-start del cartrid9e ($8063 
en el ejemplo). Los s i9u i entes dos ba tes 
contienen los warm-start vectors del cartridQe 
C$8879 en el eJemPlo). Los si 9u i entes tres bytes 
son las letra CBt'1. Los últimos dos bytes deben 
ser 80 err hexadecimal. 

Cuando se encienda la computadora esta examinara 
si estos nueve bates están ubicados en $8000. Si 
es asi la computadora Pasa el control al 
cartrid9e. 

El cold-start vector es utilizado cuando se 
enciende la computadora y el wart* -start vector es 
utilizado Por la tecla RESTORE. 

Estos vectores indican la dirección adecuada Para 
cada cartrid9e en Particular y Pueden Ho ser los 
del ejemplo. Lo ■lúe es importante es el CBM30. La 
computadora debe ver estos cinco bytes. Si el 
cartr id9e es auto-star t no importa si esta 
Presente o no (físicamente) . Si estos cinco bytes 
están cuando la computadora es reseteada (ver 
RESET en sección misceláneas) o cuando la tecla 
RE3TÜRE es Presionada, el control Pasara a los 
vectores. Este es el motivo Por el cual los 
Programas en cartrid9e que han sido Pasados a 
disco o cassette correrán cuando la computadora 
sea reseteada (SYS 64738). CBÍ188 actuara desde el 
RflM o ROM en forma idéntica. 

Encendiendo la computadora con el suitch aPaSado 
evitaremos "lúe la computadora reconozca la 
información contenida en el cartrid9e. 
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La computadora sabrá que hay al 9o en la ubicación 
de la memoria del cartrid9e Pero no Podra leer la 
información e indicara 38719 EVTES FREE. 
Los cartrid9e normalmente ocupan la memoria $8808 
a $9FFF (cartrid9e de 6K). Guardar la información 
del cartrid9e a disco o cassette es muy simPle. 

<H> Utilice el comando S (SflVE) del monitor ML 
Para 9uardar la memoria. 

S 8680 FieOS' 1 nombre" 68 ÍS1 cassette) 

$8960 es la dirección inicial del car tr idee-, 
Íñí3@0 es la dirección final mas uno del bloque de 
memoria a ser copiado. Siempre aereear un ¿y te de 
información,, ya tjjté en 9enera 1 los monitores no 
copian el ultimo byte. 

La computadora Puede ser ahora aPa9ada y el 
cartridee sacado. El Pro9rama Puede ser car9ado 
desde el disco o cassette. Utilice 8.1 (disco) o 
1*1 (cassette) Para *lue la información sea 
car9ada en la dirección d== memoria 
correspondiente. 

Trate Presionando la tecla RESTORE; si el 
Pro9rama no empieza a ejecutarse utilice SVS 
64738. Normalmente esto correrá el P roer ama* 
O c as i o na 1 m e n t e a 1 9 u n o s ? r o 9 ra m a s n o f u n c i on a r a n . 
Sucede que al9unos car tr idee tienen una 
Protección en leneuaJe de maquina. 

Los Pro9ramas de car tr idee están contenidas en 
chiPs ROM. Esto significa ^ue la información 
contenida en el chiP Puede ser solo leída. 
Min9una información Puede ser escrita. 
La memoria ROM (Read Dril y Memory} Puede ser- 
considerada como memoria Permanente y no Puede 
ser modificada de nineuna manera. 
Lo que aleunos cartridees intentan hacer es 
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i'CJificar su ProPia memor i a cuando el programa es 
ejecutado. Como el, Programa esta contenido en ROM 
la memoria no Podra ser alterada Por lo que el 
Programa es ejecutado sin Problemas* Pero cuando 
el ProSrama ha sido copiado en disco o cassette y 
lue9o cargado en la computadora ¿ el Programa 
reside ahora en memoria RñM. Los programas 
residentes en RflM Pueden ser modificados en 
cualquier momento- Rhora cuando el Programa sea 
ejecutado Podra alterarse a si mismo. 
Para Poder encontrar la Protección del cartridge 
sera necesario cargar y ejecutar el monitor ML. 

1> Cargue el monitor* 

2> Cargue el Programa desde el disco o cassette* 

3) Cambie CEMG0 a CEM98- Esto evitara que el 
Programa se ejecute accidental mente . Recuerde 
cambiarlo nuevamente antes de guardar el 
Programa. 

4) Transfiera el bloque de memoria Í8OQÜ-ÍB0Q8 a 

$4006. 

T 8808 fi080 4000 

Esto le Permitirá tener un área en la' memoria con 
la cual comParar el Programa original. 

5> Encuentre los vectores cold y warm-start del 

cartrid9e» Utilice el comando G Para ejecutar el 
cartrid9e. Intente con los vectores cold-start 

Primero. Puede ser necesario intentar con los 

cold-start vector s desPu.es de recargar el 
Programa. 

G 8B09 en el eJemPlo Precedente 

6) Después que el Programa se de ten 9a o bloquee/ 
resetear la computadora. Utilice SVS 43152 Para 
correr nuevamente el monitor ML. 
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7) Utilice el comando C (COMPARE) Para hallar las 
memorias que fueron alteradas con la ejecución 
del Pro9rama. -Ud. ya transfirió el Programa $4800 
en el Punto cuatro. En 9eneral la protección 
modificará solo unos pocos bates de memoria o un 
bloque. 

C 8008 ñ000 4008 

3> CoPie las direcciones de memoria que hayan 
sido modificadas. 5 i ha sido modificado un bloque 
coPie el área en general. Esto nos dará un área 
donde comenzar a investigar. 

Si solo uno o dos bates en memoria han sido 
modificados* el Pro9rama Probablemente realizara 
a 19o similar al siguiente ejemplo. Si la memoria 
alterada fuera *8400 a su valor fue cambiado a 
cero <00) Ud. encontraría el código ; 

.3840 R9 00 LDñ ft$00 
.3042 3D 08 34 STfi $8480 

El Programa en ROM no será afectado Por esto a a 
que no Puede ser sobre escrito. Pero como estamos 
en RflM $8848 sera afectado. 

Para encontrar el código Ud. Puede utilizar el 
comando D (DISfiSSEMELER) e investigar el Programa 
linea Por linea. Cada vez que observe que el 
Programa no car 9a nada como en $3842 seguramente 
es Parte del esquema de Protección. 

En nuestro ejemplo, Para Prevenir la modificación 
de Í3480 será necesario cambiar el codi9o desde 
$3042 hasta $3045 a HOP (NO OPERñT I OH > comando 
que no hace nada. Entonces y a no será modificado 
$3488 y el Programa funcionará normalmente. 
Algunos ^Programas uti l izaran este método de 
alteración en distintos Puntos; hay que 
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buscarlos; no es difícil, solo lleva un Poco de 
tiempo. 



(**j|*4I^ÍJ^Í 

, se uy 


yy 
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B4 






; : f 




t~l é~í *Ti 
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80 






f , í 




. 8904 


C3 






\ l f 




. $003 


C2 






,»j Jí-, 

^ ?7 




. 80Q6 




■j o 


3U 


LMP 


$3033 


,8303 


Hy 


00 




LDH 


ü. í*"j ¿Ti 


. 8O0E 




00 




bTH 


j_ * 

íyu00 


. 800E 


ñi 


20 




LDfl 




.8810 


8D 


Ü0 


84 


J~, -T" h— , 

bTR 


$8480 


.8013 


R3 






LDH 


#$b0 


• 30155 


8D 


00 




bTH 


Í3000 


.3018 




— . 

00 




LDR 


#$00 




SU 


00 




bTH 


$3400 


.ütílD 


3D 


00 


35 


bTH 


$9500 


. 3020 


SD 


20 


35 


STfl 


$3520 




SE 


FF 


80 


STfl 


$8SFF 


. 3026 


R9 


F7 




LDñ 


#$F7 


.3023 


fl2 


1F 




LDX 


#$1F 


.302fl 


fie 


00 




LDY 


#$00 


. 302C 


3C 


0E 


DC 


STV 


$DC0E 


■ 302F 


3C 


R9 


00 


STV 


$00R3 



El Programa Precedente cambia dist i ritas RRM 
directamente'. Este método se denomina 
direccio'namierito directo CDIRECT Rddressin9) o 
d i rece i onam i ento absoluto CRBSQLUTE Rddressirt'3) . 
Los valores en las memorias Pueden ser también 
cambiados mediante 1) direcci criamiento indexado 
CINDEXEB Rddressitt9>, 2> INDIRECT INDEXED 
Rddressiri9 o 3> I NEEXED INDIRECT Rddressin9. 

.3070 R9 00 LDR #$08 
.3072 R0 18 LDV #$10 

.3074 39 4Q 31 STR $3140,7 / 3TR $3140+V 
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.8977 CS INV 

.3078 33 49 81 STR $8140, V 

.808B Ñ9 42 LDñ #$42 



X V=V+1 

/ STñ $8140+V 

X comienzo Pro9. 



Este es un ejemplo de INDEXED addressina. Es muy 
tacil de entender, ya que lo que hace ps sumar el 
valor de V al valor de la dirección de memoria 
obteniendo asi la nueva dirección. El valor dp y 
Puede ser cualquier valor entre 00 y FF •' Por" lo 
que- la nueva dirección es tara dentro dp los 25^ 
bates a Partir de $8146 en el p.ipmPlo. 
INDEXED addressin9 es tan fácil d* "arr^Ur" 
como DIRECT addressins. Cambie lo* by $3074 
hasta $88?e Por NOP, también desde $8078 hasta 

íotír'H, 

La dirección Puede ser indexada con X o 



V. 



Veamos ahora INDIRECT INDEXED addressing. Estp 
tipo de indexacion utiliza solo el rp9istrn y y 
es bastante común. INDIRECT INDEXED addr-pssin* 
Puede ser usado Para cambiar alSunos bates n un 
bloque de memoria. 

.8080 m 00 LDñ #$00 / comienza en $8200 

.8832 85 E8 3Tñ $E8 / ba.io bat* 00 

.8084 fíS 82 LDñ #$32 

.8086 85 E9 STñ $B9 / alto bate «2 

.8988 m 0@ LDV #$Fifi 

.803fl ñ9 FF LDñ #$FF 

.808C 91 B3 STñ <$B8>,V / STñ en $8200+V 

.Ü08E CS INV / V=V+1 

.808F D0 FB BNE $80SC X IF VO0 THEN $808C 

■Ü091 Hy 00 LDñ #$ü0 / comienza Pro9. 



INDIRECT INDEXED addressin9 utiliza la Pa9ina 
cero c.zero Pa9e> Para, Suardar la verdadera 
dirección como un vector. La dirección debe spr 
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9uardada en el formato desglosado en baJo byte 
Clo« byte) y alto bate <hi9h byte) que es el 
utilizado Por el microprocesador 6510, 

Cuando la computadora ejecuta un STR CÍES)/? 1 
9uarda el contenido del acumulador en la 
dirección contenida en ÍES y $B9 mas V. El 
Pro9rama ha 9uardado la dirección $8239 en $E9 y 
*ES; V inicial mente vale 80, Por lo que la 
co mP "j.tad o r a P r 1 me r o 9 u a rdar a el c orí ten ido del 
acumulador <STñ) en $3288- Lúe 9o V es 
incrementada; cuando V sea distinta de cero el 
Pro9rama se diri9ira a la dirección $898 C y 
realizara la operación nuevamente. Esta vez V 
va le 1 , Por lo q ue ■ 1 a nueva d i rec c i ón d onde 
Pondremos el contenido del acumulador ■ ÍSTfi) sera 
$820 1 , Esto cont i nuará hasta q ué W a l canee e l 
valor FF C255). Cuando incremente $FF en uno> 
tendremos nuevamernte £90; entonces la sentencia 
ENE encontrara que V es x9ual a cero. Por lo 'lúe 
Pasara a la si9uiente instrucción. 
Como resultado de toda esta rutina la memoria 
desde $8209 a Í82FF ha sido llenada con 00. 

Si Ud. encuentra que su Pro9rama tiene una rutina 
de P rotecc i on s i m i l ar $ l a descr i P ta > hay var í as 
maneras de Prevenir que el Pro9rama se 
auto- borre ¡ 

Ca) Cambiando el alto byte en $E9 de $82 Por $26 
(o cualquier otro valor) i fuera del área de 
memoria del cartrid9e. 

ib) Sería cambiar los Primeros tres bytes de la 
rutina Por un comando JÍ1P (JÜMP) que salte la 
rutina de Protección : 

.8680 4C 91 80 JMP $8031 
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.SeSfi fl9 FF 



LD-fl #$FF 




NOP 
HOP 
INV 



Cualquiera de estos métodos hará el trabajo 
correctamente. Elija uno y vea si existe un 
cüdi9o similar en el Programa en el que Ud. esta 
trabajando. 

Recuerde que no afectara en nada a la computadora 
si Ud. experimenta con el código. 



Un tercer método de di rece i criamiento *s p! 
INBEXED IHDIRECT. Este tipo de indexacion utiliza 
solo el registro X. Es el método mas complicado. 



. 9048 


R9 


00 


LDñ 


#$00 


/ 


baJo byte -$10 


. 8942 


35 


FB 


STfl 


$FB 


/ 


STR en $O0FB 


.8044 


H9 


71 


LDñ 


#$71 


/ 


alto byte -$10 


.8946 


85 


FC 


STfl 


$FC 


/. 


STR en $89FC 


. 8048 


f\2 


18 


LDX 


#$18 


/ 


X+ baJo y alto b. 


.S04H 


R9 


00 


LDñ 


#$00 




.808C 


81 


FB 


STfl 


<:$fb, 


i ) 


/' STñ en $8110 


. 8059 


fl9 


ñF 


LDfl 


#$flF 


i 

t 


comienza Pro9. 



La dirección deseada es $8110; el bajo bate $10, 
el alto byte $81. El valor del registro X es 
restado del alto y baJo byte. Estos nuevos 
valores son guardados en la Pagina cero. Cuando 
el Programa es corrido el valor de X es sum¿dn * 
ambos bytes CbaJo y alto). 

Hay que tener Presente que muchos Programas 
Pueden utilizar memoria Por deba Jo de $8000 Para 
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9 uar d a. r c i er ta. i nf or mac ion (Por e j e m p l o : H i 9h 
Seo res) Pero no con la intención de P rotearían. 
Por lo que hay que Prestar atención 
fundamentalmente a aquel códi9o que Pueda alterar 
la dirección $8990 Para arriba (hasta $C00©>. 



CfiRTRIDGES DE 16 K 



Existen cartrid9es de 8K de memoria ($3000 a 
$3FFF> y los de ÍBK ($8099 a $BFFF) * 
Los cartrid9es de 16K son similares a los de 8K. 
La Pri'ncipal diferencia es que la memoria ocupada 
Por el interprete BfiSIC es ahora ocupada Por el 
car tridas. 

Cuando el cartridse esta colocado y encendemos la 
computadora esta busca CBM30 (ya comentado). Si 
la computadora encuentra CEM89 > entonces 
chequeara el contacto #3 (GFlME) del 
cartrid9e~Port Para detectar la Presencia del 
cartrid9e. Si el cartrid9e utiliza 16K la 
computadora colocara el valor $36 en la dirección 
$8001 Para desactivar el interprete BRSIC ya que 
el cartrid9e utilizara esa área de memoria. 
Si Ud. sospecha que el cartrid9e es de 16K> 
coloque $36 en la dirección $0001, 
Si existe codi9o de maquina Por encima de ÜÉPÉI 
entonces el cartrid9e es de 16K. 
Estos cartrid9es se coPian a di i co o cassette de 
la misma manera que los de 3K¿ salvo que el área 
de memoria es mayor : 

3 3900 C000 "nombre" 08 (cass. 01) 



Los métodos de Protección son similares a los de 
8K; salvo que en los cartrid9es de 3K habrá uno o 
dos esquemas de Protección y en 16K seguramente 
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tres o cuatro. 

Utilice las mis roas técnicas que en 3 K ; recuerde 

que ahora es necesario desactivar el BRSÍcV el 

KERHflL o ambos antes de ejecutar el Programa. 

Esto _ evitara cualquier Posibilidad de 

interferencia entre el Programa y el sistema 

operativo de su computadora. 

fl continuación mostraremos como Proceder. 

El Primer Programa es un eJemPlo de como 

desactivar el BRüIC en lenguaje de maquina y el 

segundo Para desactivar el KERNRU 



.efiee fís 36. LDñ #$3* / 

.0R02 35 01 STfl $01 
.0R04 40 03 88 JMP $8009 / 



desactiva BRSIC 
comienza el Pro9. 



.0R00 R9 35 LBR #$35 
.0R02 85 01 STñ $01 
.01=1 04 4C 09 80 JMP $8009 



desactiva KERNRL 



Estos Programas son completamente relocat-- acles y 
Pueden ser utilizados en cualquier memot '.. El 
comando JMP OUMP) se determina Para eatíá 
Programa. 

Es importante. Para concluir,, que con estos 
métodos y una dosis de Paciencia llevara a feliz 
termino cualquier desprotección de cartridges. 
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MflPñ GENERAL DE Lfl MEMORIA 



HEtt 




DECIMAL 


DEbLRIPCluN 


8000 




0 




Re9istro di rece i orí de chiP 


0001 




1 




Control y memoria de cinta 


0003" 


0004 


3-4 




Float-Fixed vector 


0005" 


0006 


5-6 




Fixed-Float vector 


00 y? 




7 




Busca carácter- 


0003 




8 




Bandera de comillas 


0809 




9 




Guarda columna del TflE 


800A 




10 




y-LÜfiD; 1-VERIFV 


000B 




11 




Entrar puntero del buffer 


000C 




12 




Ifi 1 1 Y 1 ! TU 1 

Bandera de DIM a&umda 


00011 




13 




t i P o : FF=str i n9 ¿ 00=numer i co 


000E 




14 




tiPo : 30-entero, 00-P .f lot. 


000F 




1? 




Data sean 


0810 




16 




Bandera de función 


0011 




17 




B=INPUT; Í4@=GET; Í98REAB 


0012 




18 




3i9no arco tan9ente 


0013 




19 




ñctual bandera 1/0 


0014- 


-0015 


20- 


21 


Valor entero 


0016 




22 




Puntero : t u9ar rooment . str i n9 


0017- 


-0016 


23- 


24 


Ultimo mom,strin9 vector 


0019- 


-0021 


25- 


33 


Lu9ar Para mom.stri9 


0022- 


-0025 


34- 


37 


ñrea del Puntero utilit. 


8026- 


-002A 


38- 


•42 


Rrea Para multíplice ion 


002B- 


-0020 


43- 


■44 


Puntero : com. del Basic 


002D- 


-082E 


45- 


■46 


Puntero -com- de variables 


002F- 


-0030 


47- 


■48 


Puntero ^com. de vectores 


0031' 


-0832 


49- 


■50 


Puntero 1 fin de vectores 


0033- 


-0034 


51- 


-52 


Puntero : lu9ar de strin9s 


0035- 


-0036 


53- 


■54 


Puntero de strin9 útil 


0037- 


-0038 


55- 


-56 


P u. n tero : l i m i te de me mor i a 


0839 


-083A 


57- 


-58 


fictual nro linea de Basic 


003E 


-083C 


59- 


-60 


Anterior nro de linnea 
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093D- 


■003E 


61- 


■62 


Pu.Ti'hPPO P^r-a p1 TflNT 


993F- 


■0040 


63- 


■64 


Rí—^u^il n*^n 1 i nea rJoTlfHTfl 

r j v r *A<?« l l ir *\J L 1 llcdl LUí Jjn 1 n 


0841- 


■0042 


65- 




ñí-f 1 1 jai 1 fli r^iS-j 4 - 1- -i n\*\ fJeTlRTfr 
u'j,<?. l uir ^'—L. 1 'J 11 UEr un 1 n 


9043- 


■0044 


67- 


■63 


< t | *','vi -L i ir u i 


0045-0046 
0047-0043 


69- 
71- 


■70 


NnrfiKK-P Hé* ya^í a h 1 ¿> n >¿ js r-l a 


■72 


TI 1 ^'Orí* 1 r*i v*i ua^i ihl a 1 1 ¿s 3 ^4 a 






73- 


■74 


Pi 1 L^^si^, d 3 k% 3 CTeD v'klC VT 
r U, TlL-^rO K a r a r 1 J k #• f H t <'# I 






75- 


■76 




Mt^idn 




77 




■ j 1 ROU L U CU Plr ?,r í,C 1 O 0 






73- 


*8c¡ 


nr^di, L-r auaju t x l-í 3. 






84-86 


v^u^Qr K-ard t unciones 


UU'J r 




87- 




nr *r a cA^rd nuinfiT ■ ica 










n&rtJUU 1 ■ uArUncTILí 






« v ■_■ 




Rf J ífñ 2 ¡ Ma '0+* i -^._a 






102 










103 






9968 




104 




H i r¿i 1 ; i^f^H^'f*! alfa 






105- 


•1 10 


fifi i r í> ¡ PvD j M ja . Q i Oyyí\ 


006F 




111 






0070 




112 




R i~" 1 1 reí 1 ■ i *i y*- H í=- n h sj í 3 


0071- 


■0072 


113- 


114 


1 1^1 TlQ t~ 3 C C w +■ i=i L-, | J -|T' fc". 


9073- 




115- 


138 


'-¡i i hrvi i f i ri 3 f -upr^pT 

'JV.UF V. Vi 11-?* bni^yc. 1 


007ñ- 


007E 


122- 


123 


PuTitpr'Q ir 


003B- 


ÜOÉF 


.139- 


143 


'Iglnr phJT) 
1 l ur i\i 1 jj 


009 0 




144 






0091 




145 




K p y s w i t r h P I ñ 


0092 




146 






0093 




147 




L HRD «Pl i V ERIF V= 1 


0094 




148 




i ida si&f* íp 


0095 




149 




C-aLr'^i-tpr ^prip 

■— ' - ■ 1 - ■ «■ n — . 1 mmi — 5 ¿ '„ 


9096 




1 58 




F i 'fi^í 1 j— i Vjt" ,3 


9097 




151 




Re9istro a 9uardar 


0093 




152 




Nro de archivos- abiertos 


0099 




153 




E'ntrada de unidad 


009fl 




154 




Salida unidad CMD 


00 9E 




155 




Paridad carácter cassete 


009C 




156 




Bandera bate recibido 


009D 




157 




RUN=0¿ Modo Directo*80 


0O9E 




158 




Primer lectura de cassete 
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003F 




159 




8e9und<3 l ectu ra 


00R0- 


•00R2 


160- 


162 


P^loJ Jiffa HML 


00R3 




163 




Bit serip 






164 




Cupnta l^zos 


00ñ5 




165 




Cuenta calda 


@0R6 




166 




Puntero del buffer cgscphe 


00 R7 




167 




G a b z 3 Q r 1 .gi b ,9 r i ó "n 


0083 




168 




Error Iprtur^ 


0ÜH3 




169 




Cqi^i i enz^* 8 ser i tura 


08RH 




170 




Sean de rass^tt** 


00RB 




171 




L a r 9 ij p *-cr i ¡ j ra 


00RC- 


■00RD 


172- 


173 


Puntero : cassete buf.f er 


S0RE- 


■00RF 


174- 


175 


D i rece i o n f i ti 4 dé ? r o9r a rn a 


00B0- 


■00B1 


176- 


177 


Constantes de t ieroPo 


90B2- 


-00B3 


173- 


179 


Puntero 1 coro i enz# del buffer 


0QB4 




180 




1 -contador habilitado 


'""0B5 




181 




Próximo bit Por P3232 


00E6 




182 




Error de lectura de carac. 


00B7 




183 




il; r a c tere 3- n o r<ib r e ?,r h c h i vo 


00B8 




134 




Cor ríen te arch i v o 1 09 i co 


00 £9 




135 




Corriente dirección 2ria. 


00BR 




136 




Un i dad fu nc i o n a n d o 


00EE- 


-00BC 


137- 


183 


Puntero a l ar G h i v o 


00BB 




189 




Lectura d* *"3rjrtpr entrada 


00BE 




190 




Hro de bloques restantes 


00EF 




191 




Word buffer en serie 


08C0 




192 




Inter lock motor de cassete 


00C1- 


-00C2 


193- 


194 


Dirección comienzo 1/0 


90C3- 


■08C4 


195- 


196 


Puntero Kernal 


00C5 




197 




Ültima tecla Presionada 


00C6 




193 




Nro de caracteres en buffer 


00C7 




199 




Bandera de reverso 


0ÚC3 




200 




Fin de linea de INPUT 


00C9- 


-00CH 


201- 


202 


F i l a j col ursina cursor 


06CB 




203 




Tecla^ nro 64 si nin9una 


00CC 




204 




Q=cursor f lasheante 


00CD 




205 




Cuenta de caida 


08CE 




206 




Carácter baüo el cursor 


80CF 




207 




Cursor P arp adeante 
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üODQ 




286 




Inyreso de P anta l la/ teclado 


0011 1 - 


00D2 


y*. {—, 


210 


Puntero linea Pantalla 


00D3 




211 




Posición del cursor 


00134 




212 




Bandera modo comillas 


i"j i^i ^ C 




213 




Lon9itud linea de Pantalla 


Ü0Db 




214 




Fila del cursor 


rt rtl T*i ™1 

000)7 




215 




Ultima entrada 


H~J ■"'i Til"! 

00P8 




216 




Uro de INbERTs 


U0D9- 


00F2 


217- 


cl4íí! 


T ab la en l ace de l i neas 


00F3- 


08F4 


243- 


244 


Puntero color de Pantalla 


80F5- 


00F6 


245- 


246 


Puntero de teclado 


00F7- 


00F8 


247- 


-248 


Puntero : entrada Rb¿ 12 


00F9- 


00FR 


249- 


■250 


Puntero - sal ida RS232 


0100- 


010R 


256- 




Punto flotante al floCII 


0100- 


■013E 


256- 


-318 


Error de cassette 


0100- 


■01FF 


256- 


tS4 1 


ftrea del espacio Procesador 


0200- 


■0258 


512- 


"600 


Buffer in9reso de Basic 


0253- 


-0262 


601- 


-61 tí 


Tabla archivo lo9ico 


0263- 


-026C 


611- 


•620 


Tabla de unidad 


026D- 


■0276 


621- 


-630 


T a b l a, d i r e ce i o n s e c u. n dar i a 


0277- 


■0280 


631- 


-640 


Buffer del teclado 


0281- 


-0282 


641- 


"642 


Comienzo memoria BñSIC 


0283- 


-0284 


643- 


-644 


ToPe memoria ERSIC 


0285 




645 




Bandera serial bus 


0286 




646 




Actual coda 9o de color 


0287 




647 




Color en el cursor 


0288 




648 




Pa9e de memoria de Pantalla 


0289 




643 




Máximo espacio de teclado 


028ñ 




650 




Repite todos las teclas 


028E 




651 




Repite contador veloz 


028C 




652 




ReP i te contador retrasado 


S28D 




65 J 




shift de teclado 


028E 




654 




Ultimo Patrón de shift 


028F- 


-290 


655- 


-*5b 


Puntero : tabla de teclado 


0291 




657 




Modo shift de teclado 


0292 




658 




O-scr o 1 1 hab i l i t ado 


0293 




659 




Registro control R3232 


0294 




660 




Re9istro comando RS232 


6295- 


-0296 


661- 


™662 


Bit tinün9 



66 



La. Fantástica C.S4 



0237 




v W w 






029 S 














O O w c 


OOP 


uoai jo eje ve Locictád R52ocí 


02 Q B 




r 




1 111 1 n^t t ^u dut t er ko¿.o¿ 


029C 










029D 




W 






029F 




£70 




r 1 n otf 1 ido. uUt t €t Kocio¿. 


029F- 


'02ft0 


£71- 

■H. | ± 


■£72 


X PV'¿! X r U 


0-fil 




□ r u 




f- T PC r' MMT "i 
U 1 n¿L r s Plí 1 J. 


02fl2 




674 




P T ñ 1 Ti n-iw^ P 
■wj.ru ix íTer n 


02R3 




£7^ 




P T P 1 T Vi £>É^VN IlDf 


02R4 




h% 7l£ 
OÍD 1 




Llni D -3, nCj t' t" -F. 1 1 rn^T' n 


Ui — ¡ i 




£77 




1 J*r CACiur Cdt L x rih: 3. FATIGA 1 1« 




•02FF 


704- 


-7 tí 


f'QD^i 4* a 1 1 "'1 
wrrl JL i / 


0300- 


0 30 1 

y_j ._< h_i x 


r DO 


•7£Q 

1 DJ 


' 1^ mí? 4 fe üt erro r <j.soc 1 3. d u 


030C*- 
r _ ¡ i 


•0303 


770- 


771 

f f X 


uuíTjx^rijLU x>?.sic u^rfíi 




ÜOUJ 


77?- 




I5dL^ 1 C *_J LU M.J i 


03flt£- 


ü<j^ i 


774- 


1 1 J 


í 1 U £ T'^i. «3.V 1 0 C 1 3. CÍO 


U ' j O 




77£- 


* f ( / 


UuPi 1 *^ 1 iZO nU.fc VO CuCJ 1 9u x>-?.^ 1 C 


u ■ j u n 




r f O 


■7"?Q 


Toros, e l eroe'fito trnet i co 






r 




651 8 accurou 1 ator 


ra O ra Ti 




7 O 1 




b-^ 1 ü r»sr9 1 stro & 


030F 




700 
1 '-'^ 




t*.j 1 y rey 1 st^ro t 






700 










7ñ4 
r OH 




UcK lTjSt-rUCClOfl ^ ULP1F 


Pili 1 * 






r QD 


UorC Cj 1 1* '8CC XOlTi JULPiP 






7£i7 




ilTl UiS'O 


031 4- 


-011 S 


1 




L^i *i t— 1 1 1 ^ lh', j-^, 1 i^. X y« l— L i - 1 i Ti «i i é ^ JL — .— 

n-3,r C3W3Lre i n^ert ^J.r t- VeCXGr 


031 




7Qñ- 




jd r ^ ^ k 1 ti u^r 1 u> v e c o r* 


63 18- 




7q>-- 




111 1 x 1 n w^rrU.r V vclvOP 


031A- 
x n 


-03 1 T\ 


7^4- 




1 1 D A Vi USf^f rtk"! 

Ur tí II V^L,ÜUi 




•03 1 D 


79fi- 
r 


-797 


WiWvtLf wt LVQr 


03 1E- 


-83 1 F 

f w X 1 


79 a- 


•799 


T VtD 1 1 4" +. /ir»*— 4- 


0220" 


•0321 

ww¿— . J. 


ft00- 


X 




0322- 


-0323 


802- 


■803 


Restore 1/0 vector 


0324- 


-0325 


804- 


-805 


INF'UT vector 


0326- 


-0327 


306- 


-807 


DUTPUT vector 


0328- 


•0329 


808- 


-803 


StoP vector test 


032ñ- 


-032E 


810- 


-311 


GET vector 
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032C 


-032D 


812- 


■813 


Abortado 1/0 vprtnr 


032E 


-632F 


814- 


-315 




033Ü 


-0331 


816- 


■817 


LnflD vprtor 


0332 


-0333 


318- 


■819 


SRVE vertor 


0334 


-033E 


828- 


■327 


s i (i ^.n 


833C- 


-03FB 


828- 


■1018 


f'fiS'^ETTF T31 IFFFP 
a " — , 3 1 — i i l i?ur r Ln ( 


0340- 


-037E 


832- 


•¡394 


í '"¡Pr i 1 O 'i 


0388- 


-03BE 


896- 




( cp r , j +■ p |4 "i 
\ gr r J» w " 1 " .■ 


03C8- 


-03FE 


360- 


■1822 


V Wr f X Ü7 ¿ W / 


0400- 


-87FF 


1024- 


■2047 


Mpr/iriK" 1 i ^ Hp D a yi+ alia 


0300' 


-9FFF 


2048- 


■40553 


Mpfrtnr i a fíatú T?ñQ TP 


8000" 


-9FFF 


32768- 


•40353 


RfiM r 3 rhr i rJcj£> 


Ñ000- 


-EFFF 


40960- 


■49151 


ROM ^ i r 


R000- 


-EFFF 


43060- 


•49151 


RñM 


C000- 


-CFFF 


43152- 


-53247 


Mpfí'iorí^ RñM 

■ 1 ■— 1 1 w | ^ Wf 1 % 1 II 1 


D000- 


-D82E 


53248- 


-53294 


VícJpo ChiP í ^56b '> 


0400' 


-D41C 


54272- 


•5430ti 


SrujTid ChiP íéSÉl 3ID) 


D300- 


-DBFF 


55236- 


■56313 


Memoria color nybble 


DCÜ8- 


-BC9F 


56329- 


♦56335 


Interfaz chiP 1. IRQ 


HDÜ0- 


-DD0F 


56576- 


56531 


Interfaz chiP 2.HMI 


D008- 


-DFFF 


53248- 


57234 


ñtternativa : set de caract- 


E000- 


-FFFF 


57344- 


>65535 


ROM : sistema operativo 


E000" 


-FFFF 


57344- 


65535 


Alternativa* RñM 


FF81- 


-FFF5 


65409- 


65525 


Tabla Jurnp 
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MISCELANEAS 



> TRABAJANDO CON CHR$ 

Cualquier código GHRI o una combinación de 
codi9os Pueden ser asignados a un string: 

108 C*=CHR*<147>: REM LIMPIAR PANTALLA 
200 PRINT C*"HOLA" 

* 

> EJECUCION DE COMANDOS DIRECTOS DESDE UN PROG. 
Es fácil hacer a un Programa simular que 
determinados caracteres han sido tiPeados. La 
idea es Pokear mediante el Programa los valores 
'"HR$ de uno o mas caracteres en el área de 
memoria en el buffer del teclado (ver maPa de 
memoria en capitulo 7). Cuando el Programa haya 
terminado su ejecución la computadora escribirá 
READV y lue9o responderá a los caracteres 
contenidos en el buffer como si hubieran sido 
tiPeados en modo directo Por Ud. 

El buffer del teclado ocuPa las direcciones desde 
631 hasta 640. Trabaja en conjunción con la 
dirección 198. la cual lleva la cuenta del numero 
de caracteres Pokeados en buffer. 
Corra el siguiente Programa : 

10 FOR 1=1 TO 10:POKE 630+1. 64+1 
20 NEXT : POKE 138,10 



Luego de READV aP areceran l as diez P r i meras 
letras del abecedario. 

La aplicación interesante de esto es que 'si Ud. 
Pokea los caracteres de un comando ejecutable 
como RUN, LOAD, LIST, etc entonces estos Podran 
ejecutarse automáticamente si agrega al buffer el 
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CHR* correspondiente a U tecla RETURN «oc *s el 
valor 1¿. ver apéndice de códigos ñSCII y CHR* 
del Manual del Usuario. 

> LISTANDO DESDE UN PROGRRMR 

Si Lid- ejecuta un comando LIST desde un prnQrama 
el listado se efectuara, Pero la fiecttcién del 
Programa se detendrá. Ud. Puede utilizar la 
siguiente rutina para Pokear el comando RUN en el 
butfer del teclado y ejecutar el RUN ni bien el 
listado se termine. 



109 FOR 1=631 TQ 634:REflD fi:PÜKEI,R 
200 NEXT:PÜKE198,4 
300 DñTfl 32,35,78.13 
400 LIST 



> CARGA AUTOMATICA 

Cuando Ud. desee cargar un Programa desde otro en 
forma automática puede utilizar: 

10 PRINT"L0RB"CHR$<34) " nombre " CHR* ( 34 > 

",S[3 arriba]" 
20 P0KE63 1,13 = P0KE632 , 82 : P0KEÉ33 , 85 = 

P0KE634, 78 : P0KE635, 13 : PGKE198, 5 i END 



Cuando esto sea ejecutado, actuara* como si Ud. 
hubiera tiPeado el comando LGRD y luego tiPeado 
RUN. 

Si Ud. utiliza casstte reemplace el numero S Por 
el 1. 
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> CARGANDO PROGRAMAS CON DflTfiSSETTE 

La manera mas fácil de cardar y correr un 

Pro9rama desde otro es : 

1 00 PQK&63 1 .. 1 3 1 = POKE iWA 



Esto Produce idéntico efecto que Presionado 
s i na 1 taneamente SH I FT-RUN/STOP . 

> SUPRESION DEL "?" EN LOS INPUT 
Se trata de utilizar el teclado como un "de vi ce". 
El numero de de vice correspondiente al teclado es 
cero C9) y Puede tener un canal abierto Para si. 

10 0PEN1,@ 

20 PRINT "ESCRIBA ALGO" ; 
30 INPUT#1,A* 
40 PRINT 
50 CLOSE 1 

60 PRINT "UB. HA ESCRITO ■ "A$ 

La linea 10 abre un canal de entrada C INPUT) ; la 
40 es necesaria Para mover el cursor a la Próxima 
linea y la linea 50 cierra el canal. 
Con este método se elimina el si9no de 
interro9acion Pero „Ud, debe controlar 
cuidadosamente la Posición del cursor. 

Otra manera de evitar el si9no de interro9acion 
es utilizando GET en lu9ar de INPUT: 

10 B$="" 

20 POKE 207, 0: POKE 204, 0 ; GET R$=IF fi$="" 
THEN 10 

30 IF A$=CHR$a3) THEN PRINT CHR$(32> ■ GOTO 40 
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40 PRINT : E$=EÍ+fi$ : GOTO 20 

50 REM LO INGRESADO ES GURRDñEO COMO B$ 



Es necesario PRINT CHRÍ<32> (espacio) Para aPaaar 
el cursor en caso que este encendido cuando ijd. 
Presiona la tecla RETURN. 

> UTILIZACION DE TECLñS SELECCIONADAS 

La siguiente rutina le Permitirá detectar si una 

tecla fue Presionada dentro de un 9ruPo 

determinado de caracteres,» el que Ud. necesite 

utilizar. 

10 GET A*=J=1 :F0RI=1T04: 

20 IF A$=NIE$<"AECE'M.. 1) THEN J=I+1 

30 NEXT 

40 ON J GOTO 10,aaa,bbb.ccc..ddd 



La l i nea 40 P erm i te d i rece i onar se9un 1 a tec l a 
Presionada. 

En el e J em Pío a a a ■ bbb > c c c .- d d d .. s o n l o s n u roer os de 

linea a los cuales yo quiero derivar el Programa.. 

se9un AjBjC o B sean Presionadas, 

ABCD es el 9ruPo de caracteres seleccionado. Este 

9r uP o Puede ser tan lar 9o como quiera e inclusive 

P uede i nc l u i r los cod i 9os de l as tec l as de 

función. 

> UTILIZANDO EL COMANDO GET 

Un buen Programador escribir i a esto : 

m PRINT "TOQUE UNA TECLA PARA CONTINUAR" 
20 GET ñí-'IF ñ$="" THEN 28 
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Un mejor Programador borrara el buf f er , del 
teclado primero. De esa manera ignorará las 
teclas Previamente Presionadas 1 

10 PRINT "TOQUE UNfi TECLA PflRfl CONTINUAR" 
15 GET ñ*: IF ñ$0 ,MI THEN 15 
20 GET ñ*:IF ñ$="" THEN 20 



Otra alternativa Para vaciar el buffer e&- 
15 POKE 198,0 

> COMANDO GET CON CURSOR 

Una desventaja del comando GET es que no Provee 
el cursor Para indicar al usuario la Pre9u.nta. He 
a^ui un método Para obtener el cursor: 

10 POKE 204,0 

20 GET A* -POKE 207,0: IF A*="" THEN 20 
30 POKE 204, 1 : PRINT A* 



El POKE en las lineas 10 y 20 le indican a la 
computadora que encienda el cursor mientras 
espera que una. tecla sea Presionada. La linea 30 
aPa9a el cursor e imprime el valor de AS. Será 
necesario tocar Por lo menos la barra esPaciadora 
Para no dejar el cursor en Pantalla. 

y SOLUCION DE ERRORES DE DflTfl 

Si Ud. obtiene un I LLEGflL QUñNTITV ERROR en una 
sentencia DATA cuando corre el Pro9rama, tiPee lo 
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siguiente- y obtendrá el numero de linea donde se 
encuentra, el error : 

PR I NT PEEK í 63 > +256*FEEK í 64 > 



> RESET 

Cuando a Ud. le suceda 4u# un Programa blo^&ee su 
computadora y las teclas RUIVSTOP - RESTORE no 
devuelvan el cursor., sera el momento de usar un 
RESET (aplicable en casos de len9uaJe de 
maquina). 

Un reset básicamente es un suitch que conecta los 
Pins 1 y 3 del User Port (ubicado en la Parte 
trasera derecha, de 12 Pins a contar de izquierda 
a derecha,- es de decir que el Pin 12 es el que se 
encuntra mas al borde de la maquina). fl 
continuación se muestra el circuito en el cual se 
ha contemplado la eliminación de todo ries9o Para 
la computadora. 



IN4148 




PIN 3 



PÍN1 



User 
Port 



64 RESET SWiTCH 
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> COHVERS ION HEXfl/DEC I HRL 

T raba Jando con Ta C-64 e 1 usuario desde . s u s 
Primeros Pasos en computación encontrara a menudo 
números hexadecimales (base 16) muy utilizados., 
fundamentalmente en los Programas en len9uaJe de 
maquina.' frecuentemente uti 1 izados como 
sub-rutina en Programas EñSIC. 

fl continuación mostramos una rutina >lu.e le 
Permitirá realizar ambas conversiones, es decir 
de decimal a hexadecimal y viceversa. 
Cuando convierta hexadecimal a decimal inSrese un 
numero de cuatro di 9 i tos * usando ceros cuando sea 
necesario. Por eJemPlo, $9ñ sera O09fl. 



10 PRINT " 1- DEC R HEX " 
2Q PRINT " 2- HEX fl DEC" 

39 NÍ="0123456?S9FiBCDEF" 

40 PRINT : INPUT fl 
50 IF ñ=2 THEN i 30 
60 IF ROI THEN 10 

70 PRINT" INGRESE # DEC" i : INPUT fl:B=l:C=3 
30 D=16TC:PRINT fl; : PRINT "- $";:fl=fl+l 

99 IF fl-D>0 THEN fl=fl-D : B=B+ 1 : GOTQ 90 

100 PRINT riID*CH$,B, 1>; •B=i:i>i>l:D=l61C 
110 IF C>-1 THEN 90 

120 PRINT : PRINT : GOTQ 10 

130 PRINT " INGRESE # HEX" ; : INPUT HÍ=D=0:Q=3 
148 FOR mi TO 4--F0R W=0 T0 15 
150 IF MID*<H*,M,1>=MID*<N*;W+1.1I> THEN 170 
160 NEXT W 

í 70 D 1 =W* < 1 1 K Q ') ) = D=D+H 1 : Ü=Q- 1 : NEXT M 
ISO DE=INT<B> :PRINT"* M ;H*;" ="JDE 
190 PRINT : GOTO 10 
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